Visual Basic - contador de esta forma 001,002,..010

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 .

iContador = FORMAT(iContador + 1,"000")

SALUDOS

SI NO FUNCIONA ESCRIBI QUE LO ARREGLAMOS

Muchas gracias amigo , eres un tromen.
Resultooo