Save / Write contents of a listbox to a textfile

Public Sub ListBox2File(sFile As String, oList As ListBox)
Dim fnum, x As Integer
Dim sTemp As String 
 fnum = FreeFile()
 x = 0
 Open sFile For Output As fnum
  While x <> oList.ListCount
   Print #fnum, oList.List(x)
   x = x + 1
  Wend
 Close fnum
End Sub
'Check out http://www.vb2delphi.com for more code!