[Visual B] Textbestand laden in string

[Retinite]

Hoe kan ik een tekstbestand zó laten openen dat diens inhoud in een combobox (een dropdown menu) gezet kan worden

iig.
Combo1.Additem x

hoe krijg ik die tekst uit het tekstbestand dan in die x als t ware?

alvast bedankt

[Kawoutertje]

Dit is een stukje code uit een klein progje van me. 'k Had geen zin om het aan te passen, maar je bent er wel iets mee denk ik...

Private Sub cmdLees_Click()
    Dim datum As String
    
    lstData.Clear
    
    Open App.Path & "\lijst.txt" For Input As #1
    
    Do While Not EOF(1)
        Input #1, datum
        lstData.AddItem datum

    Loop
    
    Close #1
End Sub