Private Sub Form_Load()
      filename = App.Path & "\Testfile.txt"
      Dim FileLength
      f = filename
      Open f For Input As #1
         FileLength = LOF(1)
         t = Input(FileLength, #1)
      Close #1
End Sub