save كردن متن TextBox و RichTextBox در يك فايل

يك RichTextBox براي وارد كردن متن و يك TextBox براي وارد كردن عدد دارم . مي خوام به طور همزمان وقتي

متن RichTextBoxرو تو فايل متني ذخيره مي كنم، عددي كه توي TextBox هست توي همون فايل ذخيره بشه.و با open كردن اون فايل متني در سطراول عدد و بعد متن نشون داده بشه.....
بدون استفاده از فايل هاي باينري

کد:

---

Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER = &H2000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim Path As String
Dim Buffer As String
Dim RetVal As String

Private Sub Form_Load()
Buffer = String(200, 0)
GetWindowsDirectory Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
Text1.Text = Empty
RichTextBox1.Text = Empty
End Sub

Private Sub Open_Click()
On Error GoTo file
Path = Buffer & "\Notepad.exe c:\Test.txt"
RetVal = Shell(Path, 1)
file:
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim lngHwnd As Long
Dim lngReturn As Long
lngHwnd = GetWindowLong(Text1.hwnd, GWL_STYLE)
lngReturn = SetWindowLong(Text1.hwnd, GWL_STYLE, lngHwnd Or ES_NUMBER)
End Sub

Private Sub Save_Click()
filenum = FreeFile
Open "C:\test.txt" For Output As filenum
Print #filenum, Text1.Text; RichTextBox1.Text
Close #filenum
Text1.Text = Empty
RichTextBox1.Text = Empty
End Sub

---