Bueno pues mi duda es básicamente el título. ¿Cómo puedo hacer un contador que muestre los ceros a la izquierda? Dada antes una longitud claro...

Ejemplo:
00000
00001
00002
...
00150
00151
...

Se me ha ocurrido que una cadena de caracteres se puede hacer, pero necesitaría cuatrocientasmil líneas de código.

Espero que podais echarme una mano... Gracias

Seba123neo, esa funcion solo te va a agregar 4 ceros.
Esta funcion te agrega la cantidad de ceros q quieras y en tiempo de ejecucion:

Function addzeros(maxzeros As Byte, number As String) As String
Dim i As Long
addzeros = number
For i = 1 To maxzeros - Len(number)
DoEvents
addzeros = "0" & addzeros
Next i
End Function

[offtopic] 1000 fucking posts!!! [/offtopic]

lo acabo de hacer no se si te servira XD... es una lammerada jaja

Private Sub Command1_Click()
Dim uno As String
Dim dos As String
Dim final As String
Dim faltan As Byte
uno = 2
dos = 156
faltan = 5 - Len(uno)
final = ""
For i = 1 To faltan
    final = final & "0"
Next
final = final & uno
MsgBox final
 
final = ""
faltan = 5 - Len(dos)
For i = 1 To faltan
    final = final & "0"
Next
final = final & dos
MsgBox final
End Sub

espero te sirva..
Saludos

El ejemplo q posteo cobein le funciona...