Programación compra virtual

If Source = Image1 Then
A = InputBox("ingrese la cantidad que necesita", "cantidad")
total = a*30
Text29.Text = total
Text30.Text = ""
Text30.Text = a
If Text5 = "" And Text11 = "" And Text17 = "" And Text23 = "" Then
Text5 = a
Text11 = "CAMISA MARCA NIKE"
Text17 = "Q30"
Text23 = total
ElseIf Text6.Text = "" And Text12.Text = "" And Text18.Text = "" And Text24.Text = "" Then
Text6 = a
Text12 = "CAMISA MARCA NIKE"
Text18 = "Q30"
Text24 = total
ElseIf Text7.Text = "" And Text13.Text = "" And Text19.Text = "" And Text25.Text = "" Then
Text7 = a
Text13 = "CAMISA MARCA NIKE"
Text19 = "Q30"
Text25 = total
ElseIf Text8.Text = "" And Text14.Text = "" And Text20.Text = "" And Text26.Text = "" Then
Text8 = Text30.Text
Text14 = "CAMISA MARCA NIKE"
Text20 = "Q30"
Text26 = total
ElseIf Text9.Text = "" And Text15.Text = "" And Text21.Text = "" And Text27.Text = "" Then
Text9 = Text30.Text
Text15 = "CAMISA MARCA NIKE"
Text21 = "Q30"
Text27 = total
ElseIf Text10.Text = "" And Text16.Text = "" And Text22.Text = "" And Text28.Text = "" Then
Text10 = Text30.Text
Text16 = "CAMISA MARCA NIKE"
Text22 = "Q30"
Text28 = total

End If
End If