Llenar Combo a aprtir de un archivo .txt

[forrestgump]

Dim Nombre As String, MiArray() As String, i As Integer
Open "C:\malpica\lineas.txt" For Input As #1
'Open App.Path & "\Nombres.txt" For Input As #1
Nombre = Input(LOF(1), #1)
Close #1
Nombre = Trim(Replace(Nombre, vbNewLine, ";"))
MiArray = Split(Nombre, ";")
For i = LBound(MiArray) To UBound(MiArray)
Combo2.AddItem MiArray(i)
Next i


SIIII mi amiga si los carga en un Combo muchas gracias el unico problema esque ejecuto el programa y el Combobox ESTA AHI Y NO SE VE NADA basta con darle un click en ese lugar para que aparezca...que causara esa desaparicion del combobox ??