Load Text Into TextBox

How can i load text from a .TXT file into a textbox?

Code:

---

Private Sub cmdLoadText_Click()
    Dim sText As String
    Dim iFile As Integer

    iFile = FreeFile
    Open "C:\SomeTextFile.txt" For Input As iFile
    sText = Input(LOF(iFile), iFile)
    Close iFile
    Text1 = sText
End Sub

---

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]