Как поставить точку в конце каждого слова?(слова записаны в столбик!)

Dim f As Integer, txt As String, str1 As String, str2 As String
Private Sub Command1_Click()
Text2.Text = str2
End Sub
Private Sub Form_Load()
f = FreeFile
Open "C:\1.txt" For Input As #f
    Do While Not EOF(f)
        Line Input #f, txt
        str1 = str1 & txt & " "
        str2 = str2 & txt & "."
    Loop
Close #f
Text1.Text = str1
End Sub

Open "C:\1.txt" For Input As #f

 Do While Not EOF(f)

Line Input #f, txt

str1 = str1 & txt & " "
        str2 = str2 & txt & "."

Dim f As Integer, txt As String, str1 As String, str2 As String 'Объявляем глобальные переменные
Private Sub Command1_Click() 'событие при нажатии на кнопку
Text2.Text = str2            'во второе поле суём слова через точку
End Sub
Private Sub Form_Load() 'событие при загрузке формы
f = FreeFile
Open "C:\1.txt" For Input As #f 'Открываем файл 1.txt, находящийся на диске Ц
    Do While Not EOF(f) 'Пока не достигнут конец файла цикл:_
        Line Input #f, txt        'Считываем по очереди строки из файла, по 1 строке, в переменную txt
        str1 = str1 & txt & " "   'в переменную str1 дописываем очередное слово + пробел
        str2 = str2 & txt & "."   'в переменную str2 дописываем очередное слово + точка
    Loop        '_конец цикла
Close #f 'закрываем файл
Text1.Text = str1 'в первое поле заносим слова через пробел
End Sub