Считывание символов из текстового файла до первой точки - VB

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

нужна прога, с интерфейсом, которая считает количество символов не открытом тексте до точки вроде написал, но почему то не работает, где ошибка?

Private Sub Command1_Click()
Picture1.Cls
Open File1.Path + "\" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, strtemp
Picture1.Print strtemp
Loop
Close #1
End Sub
Private Sub drive1_change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_change()
File1.Path = Dir1.Path
End Sub
Private Sub Command3_click()
End
End Sub
Private Sub Command2_Click()
x = Len(strtemp)
Picture2.Print (x - 1)
End Sub

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

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

                            Dim strtemp, str
 
Private Sub Command1_Click()
str = ""
Picture1.Cls
Open File1.Path + "\" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, strtemp
Picture1.Print strtemp
str = str & strtemp & vbCrLf
Loop
Close #1
End Sub
 
Private Sub drive1_change()
Dir1.Path = Drive1.Drive
End Sub
 
Private Sub Dir1_change()
File1.Path = Dir1.Path
End Sub
 
Private Sub Command3_click()
End
End Sub
 
Private Sub Command2_Click()
x = InStr(1, str, ".")
Picture2.Print (x - 1)
End Sub
                        