[Resolvido] Carregando combo

[Irenko 0]

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 Sub

como adaptar para dar esse resultado?

[Claudio Neto 3]

Olá Irenko.

 

Acredito que isso deva resolver seu problema:

ComboCT.AddItem Format(Mid(y(0), 1, Pos - 1), "00000-00") & Mid(y(0), Pos)

Abraços...

[Irenko 0]

Valeu Claudio!!! É isso mesmo.