В по открытию тхт файла - VB

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

У меня такая проблема: в любой программе, которую я создаю в проекте, при запуске VB указывает на ошибку в строке открывающей файл. Вот например здесь.

Private Sub Command1_Click()
Dim strString As Variant
 
intFH = FreeFile
[I]Open "C:/README.txt" For Input As intFH[/I]
 
Do Until EOF(intFH)
    Line Input #intFH, strString
    strText = strText & strString & vbLf
Loop
 
Picture1.Print strText
        
End Sub

Файл с таким именем существует на диске С. Не подскажите в чем может быть проблема? Может стоит переустановит ь бэйсик?

Решение задачи: «В по открытию тхт файла»

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

                            Private Sub Command1_Click()
      Dim strString As Variant, intFH As Integer, strText As String
      intFH = FreeFile
             Open "C:/README.txt" For Input As #intFH
                      Do Until EOF(intFH)
                          Line Input #intFH, strString
                           strText = strText & strString & vbLf
                      Loop
             Close #intFH
      Picture1.Print strText
End Sub
                        