Facil..
1) adiciona al proyecto la referencia "Microsoft Scripting Runtime"
2) Crea una instancia de "FileSystemObject"
3) Ejemplo del codigo completo:
Private fso As New FileSystemObject
Private strName As String
Private Sub Command1_Click()
With fso
strName = "c:\File.txt"
Set strm = .CreateTextFile(strName, True)
strm.Write (Text1.Text)
End With
MsgBox "Archivo guardado con exito"