abrir bloc de notas pero con algo escrito

[lokoman]

Hola!
Otra forma:

Código vb:

Dim Arch
Open App.Path & "\tmp.txt" For Output As #1
       Print #1, txt.Text
Close #1
    
Arch = Shell("notepad " & App.Path & "\tmp.txt", vbNormalFocus)
 

Si quieres eliminar el archivo temporal, pon otro boton con este codigo:

Código vb:

Kill app.path & "\tmp.txt"