Visual Basic 6 - Visual basic 6 listbox

Ciao a tutti , sono un nuovo utente nel forum e avrei bisogno di un piccolo aiuto.
Vorrei creare un programma che quando viene letto un file di testo tutte le righe vengano scritte in una listbox riga per riga.
Lo devo creare in visual basic 6 , NON in vb.net

Io in vb.net usavo un codice che mi funzionava perfettamente :

TextBox2.Text = OpenFileDialog1.FileName
If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim sr As New IO.StreamReader(OpenFileDialog1.FileName)
While Not sr.EndOfStream
Me.ListBox1.Items.Add(sr.ReadLine)
End While
sr.Close()
sr.Dispose()
End If

Qualcuno mi potrebbe per favore dire come sarebbe il codice che ho usato in vb.net in visual basic 6 ?

Ringrazio tutti e attendo risposte

With CommonDialog1

    'quì ci metti le proprietà che vuoi

    .FileName = ""
    .ShowOpen
End With
If Err = cdlCancel Then Exit Sub

Dim FileScelto As String
Dim txt as string
Dim NF As Integer

FileScelto = CommonDialog1.FileName

NF = FreeFile
Open FileScelto For Input As #NF
    
Do While Not EOF(NF)
    Input #NF, txt 
    List1.AddItem txt 
Loop
Close #NF

Grazie ! Ho provato questo codice e funziona benissimo !