Lo script di iguana è corretto tranne in alcuni punti:
codice:
Combo1.Clear

Dim FileNumber As Integer
Dim TmpStr As String 'non c'era lo spazio tra dim e TmpStr

FileNumber = FreeFile
Open "c:\mirko.txt" For Input As #FileNumber 'Era stata indicata la variabile fn invece di FileNumber

Do Until EOF(FileNumber)
    Line Input #FileNumber, TmpStr
    Combo1.AddItem TmpStr
Loop