Esto es estar al pedo  

 
Private Sub Form_Load()
Open App.Path & "\anto.txt" For Output As #1
Print #1, Chr(34) & "Anto" & Chr("0160") & "Te" & Chr("0160") & "Amo!" & Chr(34)
Close #1
Shell "notepad.exe anto.txt", vbNormalFocus
Dim A As String
A = "AHRE QUE HICE EL CODIGO RE COMPLICADO JAJAJA!"
MsgBox A
End
End Sub
 
 

Dios te escuche!

No le veo sentido a este post.. :/

 
Encima se le olvido el:

Option Explicit

Jajajajajajaja

DoEvents¡!

Lo sé, pero yo lo uso para que sea necesario declarar las variables, que si no en proyectos grandes me hago un lio 
En fin, lo dije por hacer la gracia, nada más... 

DoEvents¡!