Работа с текстовым файлом

Вот что у меня получилось:
Dim Fd As Integer
Private Sub CmdSave_Click()
On Error GoTo err_fix
Dim S As String
Fd = FreeFile
S = S & TxtPhNo.Text & '  -  ' & TxtFIO.Text
Open 'c:    est est.txt' For Append As Fd
Print #Fd, S
Close (Fd)
Exit Sub
err_fix:
MsgBox CStr(Err.Number), vbOKOnly
If Err.Number = 0 Then
Print #Fd, S
Close (Fd)
End If
End Sub
 
Private Sub TxtPhNo_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
 
If KeyAscii < Asc('0') Or KeyAscii > Asc('9') Then
   KeyAscii = 0
End If
End Sub

Private Sub TxtPhNo_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < Asc('0') Or KeyAscii > Asc('9') Then
   KeyAscii = 0
End If
End Sub

Dim Fl As Long
Private Sub CmdSave_Click()
On Error GoTo err_fix
Dim s As String
fd = FreeFile
s = s & TxtPhNo.Text & '  -  ' & TxtFIO.Text
Open 'c:    est est.txt' For Append As fd
Print #fd, s
Close (fd)
Exit Sub
err_fix:
MsgBox CStr(Err.Number), vbOKOnly
If Err.Number = 0 Then
Print #fd, s
Close (fd)
End If
End Sub
 
Private Sub CmdStart_Click()
Fl = FileLen('c:    est est.txt')
Randomize
Timer1.Enabled = True
End Sub
 
Private Sub CmdStop_Click()
Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
Dim index As Integer, st As String, i As Integer, fd As Integer
index = ((Fl - 1) * Rnd) + 1
fd = FreeFile
Open 'c:    est est.txt' For Input As fd
For i = 1 To index
Line Input #fd, st
Next i
Close (fd)
TxtPhNo.Text = ''
TxtPhNo.Text = FirstString(st)
TxtFIO.Text = ''
TxtFIO.Text = SecondString(st)
End Sub
 
Private Sub TxtPhNo_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
 
If KeyAscii < Asc('0') Or KeyAscii > Asc('9') Then
   KeyAscii = 0
End If
End Sub
Public Function FileLen(FName As String) As Integer
Dim i As Integer, s As String
fd = FreeFile
Open FName For Input As fd
Do Until EOF(fd)
Line Input #fd, s
If s <> '' Then FileLen = FileLen + 1
Loop
Close (fd)
End Function
Public Function FirstString(s As String) As String
Dim s1 As String, i As Integer
i = 1
Do Until Mid(s, i, 1) = '-'
s1 = s1 & Mid(s, i, 1)
i = i + 1
Loop
FirstString = s1
End Function
Public Function SecondString(s As String) As String
Dim s1 As String, i As Integer
s1 = s1 & Mid(s, StartPos(s), Len(s))
SecondString = s1
End Function
Public Function StartPos(st As String) As Integer
Dim i As Integer
i = 1
Do
i = i + 1
Loop Until Mid(st, i, 1) = '-'
StartPos = i + 1
End Function

Public Function FirstString(s As String) As String
Dim s1 As String
Dim i As Integer
i = 1
Do Until Mid(s, i, 1) = ' '
s1 = s1 & Mid(s, i, 1)
[i = i + 1]
Loop
FirstString = s1
End Function