Visual the basic boy

Sub el_chico_perfecto ()

'unidad en la que vamos a trabajar:
Chdir ("Me:\My heart\")

'introducimos las variables:
Dim boy, answer, correctans as string
Dim age as integer

'definimos las variables para romper el hielo:
boy = Inputbox ("¿Cómo te llamas?")
age = Inputbox ("¿Cuántos años tienes?")


'desarrollo del proyecto parte I:
If (age>20) then
msgbox: ("Pues te sientan muy bien.")
else
msgbox: ("¡Qué mono eres! ¿Has venido con tu hermano mayor?")
End if

'desarrollo del proyecto parte II:
answer = Inputbox ("¿Qué te gusta hacer en tu tiempo libre?")
Select case answer
Case answer ="jugar a la consola a todas horas porque vivo con mis padres y me paso el día así sin limpiar ni nada": correctans = "Me encanta la cocina, siempre que puedo me entretengo improvisando platos nuevos."
Case answer = "ver la tele": corectans = "Dedico bastante tiempo a leer. ¿Te gusta Cortázar?"
Case answer = "conocer a todas las tías que puedo": correctans = "Últimamente estoy buscando algo especial a lo que dedicarme en profundidad."
Case answer = "ver porno y follar si se puede": correctans = "Podría gustarme mucho encontrar tu cara al levantarme dormida en mi almohada."
Case else: msgbox : ("Creo que me gustaría conocerte más. ¿Quieres que quedemos otro día?")
End select


'Archivar las variables:
Open "Realboy.txt" for output as #1
print #1, boy; age; answer
Close #1
Open "Perfectboy.txt" for output as #2
print #2, boy; age; correctans
Close #2

'tener en cuenta que no podemos usar el segundo archivo, puesto que son las proyecciones del estereotipo que no existe. solo lo usaremos para fantasear un rato

End sub