Problema de transporte de equipaje facturado en tren VB

Subcomando privado1_Click()

a = int(InputBox(""))

si un mod 50 lt;=0 entonces

print "El peso de su equipaje es" amp; a amp; "Kg, y la tarifa de envío requerida es" amp; 1,5 * csng(a)

else

print; "Tu El peso del equipaje es "& a&"Kg, y el flete requerido es "amp; 1.5 * 50 2.5 * csng(a mod 50)

Fin