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

Формулировка задачи:

На форме два TextBox'а (расположены рядом-горизонтально, напр., номер тел. и ФИО) и один CommandButton. Как сделать, чтобы при нажатии на CommandButton создавался текстовый документ и в него переписывались введенные в TextBox1 и TextBox2 данные. И последующие нажатия на CommandButton-ДОБАВЛЯЛИ (НЕ заменяли)строку. Т.е. чтобы формировался ровный список (два столбца) - Номер тел. и ФИО. ??? Спасибо...

Решение задачи: «Работа с текстовым файлом»

textual
                            Листинг программы 
                        

                            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
                        