Como lo puse yo.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub
if txt like ("[A-Z]") or txt like ("[a-z]") or txt like ("[0-9]") then
.... empezar a buscar en cada letra o por pequeños grupos.....
end if
Msgbox("Hola mundo, quieres cafe?",vbyesno)
If a >= 1 and a<=9 then
msgbox "Solo del 1-9"
end if
text1.text = text1.text & tabla