*
if textbox1.text >=5000 then
textbox2.text = "nos vamos a tomar cerveza"
else
textbox2.text = lichigo"
end if

*
dim dinero as single
dinero = textbox1.text
if dinero >= 50000 then
textbox2.text = "nos vamos a tomar cerveza"
else
textbox2.text = "lichigo"
end if

*
dim dinero as single
dinero = textbox1.text
if dinero >= 50000 then
if programa = "s" then
textbox2.text = " ah bueno otro dia "
else
textbox2.text = "nos vamos a tomar cerveza"
end if
else
textbox2.text = "pailas no hay dinero"
end if