Visual Basic - contador

Hola a todos, necesito hacer un contador en visual basic, para ir sumando de uno en uno, el problema lo tengo al dar el formato a la cadena, qiero que sea del tipo: 0001, 0002 , 0003,....
pero al declarar la variable como integer me toma el valor como:1,2,3,...

Muchas gracias a todos

Mira una vez que lo termines de sumar puedes hacer esto
Private Sub Form_Load()
Dim Total As Integer
Dim Quedaria As String
Dim i As Integer
For i = 1 To 10
Total = Total + 1
Next i
Quedaria = Right("000" + CStr(Total), 3)
MsgBox Quedaria, vbInformation
End Sub