en este video les voy a mostrar como hacer que tu computadora hable contigo al querer habir un programa y te haga preguntas. el problema aqui es que mi computadora esta en ingles y por eso le tuve que escribir en ingles. el codigo es este: StrText=("Hi, my name is Microsoft Sam") set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText StrText=("What is your name?") set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText name=inputbox("What is your name?") StrText=("Nice to meet you " &name) set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText StrText=("How are you feeling " &name) set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText feeling=inputbox("How are you feeling " &name) StrText=("Why are you feeling " &feeling) set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText why=inputbox("Why are you feeling " &feeling) StrText=("Gotta Go. Bye") set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Speak StrText