Problemer med foranstående nuller i dropdown

Efter jeg har gjort, som der står i spørgsmål:
http://www.eksperten.dk/spm/873173

Har jeg problemer med dropdownen. Når der er foranstående nuller kan jeg godt finde den i drodownen, men kan ikke indtaste og når jeg vælger den bliver det ikke registeret.

Hvad er der galt?

Her er makroen i dropdownen:

Private Sub cbVarenummer_Change()
On Error GoTo Fejl
lbVarenavn.Caption = cbVarenummer.Column(1)
Exit Sub
Fejl:
'MsgBox "Nummeret findes ikke"
sLangTekst = "Varenummer findes ikke!"
  Tilbageførsel = MsgBox(sLangTekst, vbOKOnly + vbInformation, "Systeminformation")
 
  'Marker hele det indtastede varenummer når det er forkert
    Me.cbVarenummer.SelStart = 0
    Me.cbVarenummer.SelLength = Len(Me.cbVarenummer.Text)
   
    'Sætter lbVarenavn til at være blank
    lbVarenavn = ""
End Sub

Her er makroen, der aktiveres når formen startes:

Private Sub UserForm_Activate()
'Aktiver ufOptælling og starter i Dropdown
With cbVarenummer
  .RowSource = "Status!A1:B19000"
  .ListIndex = 0
End With
'Marker hele varenummer i starten
    Me.cbVarenummer.SelStart = 0
    Me.cbVarenummer.SelLength = Len(Me.cbVarenummer.Text)

End Sub


Jeg kan forestille mig, at der kun læses det der reelt står i kolonne A og ikke det formaterede - eksempel:

der står reelt: 82565899
Men jeg vil have 10 cifre, så jeg formater cellen til 0082565899
I dropdown vises 0082565899, men når den vælges mangler der de 2 nuller og der registreres ikke noget du for varenumret.

HJÆLP :-)