Read / Load contents of a textfile into a listbox

Public Sub File2ListBox(sFile As String, oList As ListBox)
Dim fnum As Integer
Dim sTemp As String
 fnum = FreeFile()
 oList.Clear
 Open sFile For Input As fnum
  While Not EOF(fnum)
   Line Input #fnum, sTemp
   oList.AddItem sTemp
  Wend
 Close fnum
End Sub