VB6 Code - Mengisi ListBox Atau ComboBox Dengan File

Mengenai cara mengisi ListBox atau ComboBox dengan seluruh isi file menggunakan VB6 Code. Adapun cara mengisi ListBox atau ComboBox dengan isi seluruh file adalah sebagai berikut: 

Public Sub LoadFileToComboOrList(FileName As String, obj As Object) 
    Dim s As String 
    Dim InFile As Integer   ' Descriptor for file. 
    InFile = FreeFile 
    Open FileName For Input As InFile 
        While Not EOF(InFile) 
            Line Input #InFile, s 
            obj.AddItem s 
        Wend 
    Close InFile 
End Sub