vopslag med userform

jeg har en userform med et vopslag på cpr nummer, men hvis første ciffer i cpr nummer  er 0, virker den ikke, men hvis første tal er 1 eller højere kører det

Private Sub txt_CPR_AfterUpdate()
Set Tabel1 = Sheets("Journalarkiv").Range("Tabel1")
txt_placering.Value = Application.WorksheetFunction.VLookup(txt_CPR.Value, Tabel1, 2, 0)

End Sub

nogen der har et bud på hvordan man kan formatere teksboksen til at tage nullet med