Visual Basic - Autonuméricos

Hola a todos! Me gustaría saber como puedo incrementar una variable string. p.e tengo "C001" y quiero obtener una serie hasta el "C999".

Saludos!

'Espero que esto te ayude, utilizo un list para ver el resultado
'Creara una serie de 999 registros

Dim cadena,ncad As String
Dim i As Integer
Dim cant As Integer

Private Sub cmdmostrar_Click()

cadena = CStr("C001")
cant = CInt(Right(cadena, 3)) ' 001 = 1
For i = 1 To 9
ncad = "C00" & i
List1.AddItem ncad
Next
For i = 10 To 99
ncad = "C0" & i
List1.AddItem ncad
Next
For i = 100 To 999
ncad = "C" & i
List1.AddItem ncad
Next
End Sub