Rellenar una cadena con ceros por la izquierda

Basurero
04 de Diciembre del 2003
Hola, ¿hay alguna función en Visual Basic que haga lo contrario de Trim, RTrim o LTrim? Es decir, que en vez de quitar espacios añada un carácter para rellenarlo hasta x caracteres. Ejemplo:
miCadena = '3'
pero quiero mostrar:
miCadena = '00003'
No doy encontrado nada en los docs y me revienta porque sé que en PHP se hace str_pad($cadena, $longitud, $car_relleno, STR_PAD_LEFT) y ya está.

Gracias por anticipado

Juan
04 de Diciembre del 2003
Te pongo dos maneras de hacerlo.
La fácil:

Text1.Text = Format(Text1.Text, "00000")

La menos fácil:

If Len(Text1.Text) < 5 Then
Text1.Text = String(5 - Len(Text1.Text), "0") & Text1.Text
End If


Basurero
04 de Diciembre del 2003
Anda, pues se me escapó la función format(). Al ver que hablaba de diadelasemana y primerdiadeaño en la ayuda, pasé ampliamente.
Gracias por el tip ;-)