Запись текста в файл (txt или ini) из TextBox

WritePrivateProfileString "TextBox", "Text1", Text1.Text, "C:\txt.ini" 
WritePrivateProfileString "TextBox", "Text2", Text2.Text, "C:\txt.ini"

Private Sub Command1_Click()
f = FreeFile
Open "C:\1.txt" For Append As f
Print #f, Text1.Text, Text2.Text
Close #f
End Sub

Option Explicit
 
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
 
Private Const MAX_PATH = 260
 
Private Sub Form_Load()
    Dim Buf As String, fNum As Integer
    Buf = Space(MAX_PATH)
    If GetTempFileName("C:\", "Ini", 0, Buf) Then
        Buf = Mid$(Buf, 1, lstrlen(Buf))
        fNum = FreeFile
        Open Buf For Output As #fNum
        Print #fNum, Text1.Text, Text2.Text
        Close #fNum
    End If
End Sub

f = FreeFile()
Open "C:\" & CreateObject("Scripting.FileSystemObject").GetTempName() For output As f
Print #f, Text1.Text, Text2.Text
Close #f

Private Sub Command2_Click()
Open "C:\Program Files\TePro\option\route.tpr" For Append As #1 'Открываем файл для добавления записи, с номером канала 1
Print #1, Text2.Text
Close #1 'Закрываем файл
End Sub

Private Sub OpenFile1_SelectFile(FileName As String)
    ReadBytes FileName
End Sub
 
или
 
Private Sub SaveFile1_SelectSaveFile(FileName As String)
    WriteBytes FileName
End Sub

Private Sub Form_Load()
    ' Ïðîâåðêà ñóùåñòâîâàíèÿ ôàéëà
    If Len(Dir("D:\Temp\Script3.txt")) Then
        ' Ôàéë ñóùåñòâóåò
    Else
        ' Ôàéëà íå ñóùåñòâóåò
    End If
    ' Ïðîâåðêà ñóùåñòâîâàíèÿ ïàïêè
    If Len(Dir("D:\Temp", vbDirectory)) Then
        ' Ïàïêà ñóùåñòâóåò
    Else
        ' Ïàïêè íå ñóùåñòâóåò
    End If
End Sub