Private Sub OpenTextFile(Path As String, Textbox As Textbox)
 
Dim AllText As String
 
    F = FreeFile
 
      Open Path For Input As #F
 
        Do Until EOF(F)
          Line Input #F, LineOfText
          AllText = AllText & LineOfText & vbCrLf
        Loop
 
        Textbox = AllText
      Close #F
 
End Sub