Scusa lo script che ho usato nel mio Programma mi serviva x un'altra cosa,cmq corretto può funzionare così:

Function oFirst(ByVal Numero As Integer, ByVal Cifre As Integer) As String
Dim tempZ As String, tempN As String
For i = 1 To Cifre
tempZ = tempZ + "0"
Next
tempN = tempZ & Numero
If Len(tempN) > Cifre Then
tempN = Left(tempN, 1) & Right(tempN, Len(tempN) - ((Len(tempN) - Cifre) + 1))
End If
oFirst = tempN
End Function
Ma se esiste già la funzione in VB6 è meglio ke usi quella!

Per quello che diceva Luciano invece:
Per quello che riguarda il programma... a me interessa, puoi mandarmi lo script?
Ti riferisci a me? e se si...che vuoi dire?