Function PadToString(myValue, Digits) As String
PadToString = String(Digits - Len(myValue), "0") & myValue
End Function

Сделав, например, такое обращение

NewStr = PadToString(1978, 8)

вы получите строковую переменную 00001978. Обратите внимание, что Digits и myValue — переменные типа Variant.