Tal der starter med 0 copy-paste og bevare 0 som starter

Hej

Jeg har en form, som henter et tal , der i visse tilfælde starter med et 0 (0123). I denne form sættes tallet ind stadig indeholdende 0 (0123) som starter og bruger indtaster nogle yderligere oplysninger.
Data bliver så flyttet til en ny placering. Problemet er at 0 på den nye placering er forsvundet (123).

Er der nogen der kan hjælpe med dette?

Lidt kode:

Private Sub Userform_Activate()

Dim lRow As Variant
lRow = ActiveCell.Row
Me.TxtVarenr = Cells(lRow, 7)
Me.TxtDato.Value = Now()

End Sub


Private Sub Cmdindsætkommentar_Click()
'Dim Lastrow30 As Long
Dim ws As Worksheet

    Range("A2").Select
    ActiveCell.Value = Me.TxtVarenr.Value
   
    Range("B2").Select
    ActiveCell.Value = Me.TxtDato.Value

    Range("C2").Select
    ActiveCell.Value = Me.TxtKommentar.Value