Visual Basic - contador de la forma 001,002,010..100

Hola amigos foristas, tengo la siguiente consulta e implementado un contador de registros el cual trabaja muy bien y de la siguiente forma:
1,2,3,4...100 esto se realiza automaticamente para darle codigo a los registros nuevos de mi base de datos osea :
bu1,bu2,....bu10,bu11
pero se desea que sea de la suuiguiente forma:
bu001,bu002,bu003,bu010,...bu100

osea con los ceros adelante como puedo realizar esto , ayuda por favor:

el codigo que manejo es el siguienete :

Dim rsTemporal As ADODB.Recordset
Dim iContador As Integer
Dim sqlCadena As String

Set rsTemporal = New ADODB.Recordset

rsTemporal.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SYS\BD\PPTOS.mdb;Persist Security Info=False"

DataCombo1.Locked = False

OFiltro = DataCombo4.BoundText
SFiltro = DataCombo1.BoundText

sqlCadena = "Select * from PPTO where obra='" & OFiltro & "' and subc='" & SFiltro & "'"
rsTemporal.Open sqlCadena, , adOpenDynamic, adLockOptimistic

If Cmd_Grabar.BackColor = RGB(255, 255, 0) Then

If rsTemporal.BOF = True And rsTemporal.EOF = True Then
iContador = 1
Else
rsTemporal.MoveFirst
iContador = 1
While Not rsTemporal.EOF
iContador = iContador + 1
rsTemporal.MoveNext
Wend
End If
Text16 = Str(iContador)
Text6.Text = Text16.Text
rsTemporal.Close
Set rsTemporal = Nothing
End If

gracias por su ayuda .

tendrias que usar la funcion mod para saber de cuantas cifras es el nro que tenes y asi armar la cadena asignandole "0" o "00" o "000" o "000...n"depende tambien de cual es el tope de cifras va a ser la cantidad de ceros por delante del codigo.

Lo ideal es hacerlo con Format.

en vez de : Text16 = Str(iContador)

hacer : Text16 = Format(iContador, "000")

Gracias daniel , con el format solucione mi problema