Foranstille 0'er således feltet altid fylder 10 karaktere

Jeg mangler lidt hjælp til en konverter. Den nuværende kode fjerner spaces men mangler at kunne foranstille '0'. Variablen s variere i længde.

s:
97500658KP
LISTE0308
LISTE174
8853X7

Bliver konverteret til

f:
97500658KP
0LISTE0308
00LISTE174
00008853X7

Koden der skal rettes i:


    Do Until rec.EOF
       
        rec.Edit
       
        ref = rec!ref
        p = InStr(1, ref, " ")
       
        If p Then
            s = Left(ref, p - 1)
            s = s + Mid(ref, p + 1, Len(ref))
/*kode til at foranstille nuller*/
            f = konverter(s)
/* slut */
            rec!ref = f
        End If
       
        rec!konv = 1
        rec.Update
        rec.MoveNext
   
    Loop


Håber i kan hjælpe
Hilsen
-Malm