" No. Text box needed

Private Sub mnuOpen_Click() On Error GoTo Err_Not_Found Dim FileName, Temp, Total As String Dim FileNumber As Integer FileName = InputBox("Enter the path for a text file", _ "Open", "C:\test.txt", 0, 0) If FileName = "" Then Exit Sub FileNumber = FreeFile Open FileName For Input As FileNumber While Not EOF(FileNumber) Line Input #FileNumber, Temp Total = Total + Temp + Chr(10) + Chr(13) Wend Close FileNumber Text1.Text = Total Exit Sub Err_Not_Found: MsgBox Err.Description & vbCrLf & Err.Number End Sub