Quello che ti ha scritto GudFella nel precedente post è corretto, devi solo da adattarlo (previsto in un combo anzichè un un text box)
L'evento potrebbe essere :

codice:
Private Sub Combo1_Click(Index As Integer)
    If Combo1.Text = "" Then
       MsgBox "Attenzione selezionare File!!", VbExclamation, "Avvertenza"
       exit Sub
    End If

    Open Combo1.Text For Input Access Read Lock Read As #1
    Do While Not EOF(1)
        Line Input #1, str
        Text1.Text = Text1.Text & str
    Loop
    Close #1
End Sub
Se nella combo è presente solo il nome invece di fare la open di combo1.text dovrai :
FileName = "C:\Documents and _
Settings\Claudio\Desktop\SaveTestoEmail\Testo\" & Combo1.Text

Ciao