[Resolvido] Carregando combo

Texto:

135501-ME-0707;USIPAR;ENGENHARIA

6026902-VA-1008;WEG;MECÂNICA

Preciso carregar assim no combo:

01355-01-ME-0707

60269-02-VA-1008

O codigo abaixo esta carregando assim:

0135501

6026902

Private Sub ComboCTCarrega2()
On Error Resume Next

Dim text
Dim arq As Integer
Dim y As Variant
Dim k As String
Dim texto As String
Dim texto2 As String
dim Pos as Integer
text = "Sv-arquivosDataBaseEFDado.txt"
arq = FreeFile
Open text For Input As arq

While Not EOF(arq)
Line Input #arq, texto

y = Split(texto, ";")
Pos = Instr(1,y(0),"-")
ComboCT.AddItem Format(Mid(y(0),1,Pos -1),"0000000")

Wend
End Subcomo adaptar para dar esse resultado?