Try with below code:
Dim totalLength As Integer = 5
Dim g As String
For i As Integer = 1 To 999
g = "A" + i.ToString().PadLeft(totalLength, "0"C) + DateTime.Now.Year
Next
Output:
A000012015
A000022015
..........
A009992015
Note: As per your question(00001 to 00999), I take total length as 5. So if you need it more then you can change
totalLength value.