Calling a file in text format in vb

[rosewitter]

Hie
how do you call a text file in vb using textbox and command button

[Guido Geurs]

with Commondialog if You want to select a file=

Private Function Open_File()
Dim STRTEMP As String
   TextBox.Text = ""
   On Error GoTo Cancel_Function
   With CommonDialog
      .CancelError = True
      .Filter = "Text (.txt)|*.txt"
      .InitDir = Environ$("USERPROFILE") & "\My Documents"
      .DialogTitle = "Open a file..."
      .ShowOpen
      On Error GoTo Error_Open_File
      Open .FileName For Input As #1
         Do Until EOF(1)
            Input #1, STRTEMP
            TextBox.Text = TextBox.Text & STRTEMP
         Loop
      Close #1
      Caption = Left(Caption, 26) & ": " & .FileName
   End With
Exit Function
Error_Open_File:
   Close #1
   MsgBox "There is an error opening the file"
Exit Function
Cancel_Function:
End Function

If the file is always the same=

Private Sub Form_Load()
Dim FileIn As Integer
   FileIn = FreeFile
   On Error GoTo Error_Laden
   Open App.Path & "\document.txt" For Input As #FileIn
      Do While Not EOF(FileIn)
         Input #FileIn, inputdata
         TEXTBOX.text = TEXTBOX.text & inputdata & vbCrLf
      Loop
   Close #FileIn
Exit Sub
Error_Laden:
   Close #FileIn
   MsgBox ("Error loading !")
End Sub

[Brian Deering]

I'm trying to implement the "with Commondialog if You want to select a file" code in Word 2007 (SP2) and when I execute the code it chokes on 'TextBox.Text = ""' and I get error "424 Object Required." Any suggestions?

Thank you in advance.

[Guido Geurs]

I think You have to add a "Common Dialog Control" (see GIF) to Your document (see attachment)