Código
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