como faço para em vez de salvar  ele abrir direto no bloco de notas

 

Private Sub Command1_Click()

    Dim CaminhoDoArquivo As String
    Dim ManipuladorDoArquivo As Long
   
    CaminhoDoArquivo = Text4
    ManipuladorDoArquivo = 1
   
    If Option1.Value = True Then
        Open CaminhoDoArquivo For Output As #ManipuladorDoArquivo
    Else
        Open CaminhoDoArquivo For Append As #ManipuladorDoArquivo
    End If
   
    Print #ManipuladorDoArquivo, Text1 & "-" & Text2 & "-" & Text3
       
    Close #ManipuladorDoArquivo
   
End Sub

 

Não entendi..vc quer abrir um arquivo texto e joga -lo num textbox. É isso?

e mandar de arquivo para outro?

Tipo eu tenho um cadastro de cliente e gostaria de quando clicar no botão Exportar ele pegar todos os dados do cadastro e jogar direto para um bloco de notas.... 

No caso não é para salvar no hd.

Do jeito que consegui fazer ele apenas salva no hd...

Error GoTo NaoExiste
Dim F As Integer
F = FreeFile
Open C:     exte.txt For Input As F
Form1!Text1.Text = Input$(LOF(F), F)
Close F
Exit Sub

NaoExiste:
Mggbox "Nao existe o arquivo"
End Sub
Bem...se for o que entendi seria assim

esquece aquele codigo, o que eu preciso fazer é pegar os dados dos campos txtnome.text, txtendereço.text... e jogar os valores direto para o bloco de notas....

 

ficou mais facil de entender agora.... Ismael_CPD