får det sidste tal forkert

Jeg fik i http://www.eksperten.dk/spm/895322 hjælp til en funktion der fjerner 0'er, men jeg kan ikke få den kaldt på det rigtige tidspunkt.
Det kode jeg har fjumret mig frem til er:

Private Sub EAN_KeyPress(KeyAscii As Integer)

'Tæl antal tegn - se bort fra tegn der ikke er tal.
'når der er registreret 13 tegn, så sendes "enter"

Dim intKey As Integer
intKey = KeyAscii
If (intKey < 48 Or intKey > 58) And Not intKey = 8 Then
    KeyAscii = 0
Else
If IsNull(Me.EAN.Text) Then
        'første tegn - gør ingenting
        'nothing
    Else
i = Len(Me.EAN.Text) + 1
    End If
End If
If i = 13 Then
Me.EAN.Text = LZeroTrim(Me.EAN.Text)
    SendKeys "~"
i = 0
End If
End Sub

funktionen LZeroTrim bliver kaldt inden det sidste tal er kommet med, og det bliver så sat i starten af talrækken efter funktionen er kørt.

Jeg har aldrig før rørt ved VB så det er sikkert ganske simpelt