Loading a textfile to a textbox?

Public Sub LoadMsgStatus()
Dim sFileText As String
    Dim iFileNo As Integer
      iFileNo = FreeFile
          'open the file for reading
      Open App.Path & "\MsgSwitch.txt" For Input As #iFileNo
    'change this filename to an existing file!  (or run the example below first)
          'read the file until we reach the end
      Do While Not EOF(iFileNo)
        Input #iFileNo, sFileText
 
          'close the file (if you dont do this, you wont be able to open it again!)
      Close #iFileNo
 
End Sub