Sub Megamacro

Sub megamacro()
Inicio:
MsgBox "bienvenidos al cine xxx"
nom = InputBox("introduce tu nombre...?")
MsgBox "tu nombre es" & nom
peli = InputBox("Que pelicula deseas ver 1.- Los juegos del hambre2.-Rec 3.-Rio...?")
Boleto = InputBox("Cuantos boletos desea comprar...?")
If peli = 1 Then
MsgBox "Tu pelicula es Los juegos del hambre"
MsgBox "Tu pelicula es de accion"
MsgBox "El costo de tu boleto esde 52.00pesos"
MsgBox "La duracion de la pelicula es de 90min"
Total1 = Boleto * 52
ElseIf peli = 2 Then
MsgBox "Tu pelicula es rec"
MsgBox "La pelicula es de terror"
MsgBox "Costo de tu boleto es de60.00pesos"
MsgBox "Laduracion de la pelicula es de 140min"
Total1 = Boleto * 60
ElseIf peli = 3 Then
MsgBox "Tu pelicula es rio"
MsgBox "La pelicula es infantil"
MsgBox "la duracion es de 95min"MsgBox "El costo del boleto es de 45.00pesos"
Total1 = Boleto * 45
ElseIf peli > 3 Then
MsgBox "pelicula inexistente"
End If
MsgBox "Tu total a pagar por tus boletos es" & Total1
peli2 = InputBox("Deseaelegir la pelicula nuevamente 1.-si 2.-no...?")
If peli2 = 1 Then
GoTo Inicio
Else
GoTo Seguir
End If
Seguir:
prod = InputBox("Que producto desea comprar 1.-palomitas 2.-nachos 3.-dulces...?")unidades = InputBox("Cuantas unidades desea...?")
If prod = 1 Then
MsgBox "Tu producto son palomitas"
MsgBox "Su sabor es mantequilla"
MsgBox "su tamaño es Jumbo"
MsgBox "su precio es de 40.00pesos"
Total2 =unidades * 20
ElseIf prod = 2 Then
MsgBox "Tu producto son nachos"
MsgBox "Con queso extra"
MsgBox "Su orden es Jumbo"
MsgBox "Su costo es de 20.00pesos"
Total2 = unidades * 15
ElseIf prod = 3 ThenMsgBox "Tu producto son dulces"
MsgBox "Distintos sabores"
MsgBox "La bolsa es Jumbo"
MsgBox "Su costo es de 20.00pesos "
Total2 = unidades * 20
ElseIf prod > 3 Then
MsgBox "producto inexistente"
EndIf
MsgBox "Tu total a pagar por tus productos es" & Total2
prod2 = InputBox("Desea elegir su producto nuevamente 1.-si 2.-no...?")
If prod2 = 1 Then
GoTo Seguir
Else
GoTo Continua
End If
Continua:...