Tæller skifter ikke?

Jeg sidder med et mindre problem.

Jeg har lavet en tæller som skal generere tal på formlen 0001, 0002, osv optil 9999. Men tælleren skifter ikke den siger hele tiden 0001.

Min kode er som følger:

Dim dag As String
Dim md As String
Dim år As String
Dim CPR As Long
Dim i As Integer
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer
Dim j As Integer
Dim løbenummer As String
Dim testsum As Long


Do
check_dato = True

dato = InputBox("indtast fødselsdagen du ønsker at finde CPR numre for DDMMÅÅÅÅ", "Fødselsdato boks")
dag = (Left(dato, 2))
md = (Mid(dato, 3, 2))
år = (Right(dato, 4))


If dag * 1 < 1 Or dag * 1 > 31 Then check_dato = False
If md * 1 < 1 Or md * 1 > 12 Then check_dato = False
If år * 1 < 1858 Or år * 1 > 2057 Then check_dato = False

If check_dato = False Then MsgBox ("Den indtastede dato er forkert")

Loop Until check_dato = True

'hvis den indtastede dato er korrekt begynder jeg at finde CPR 'numre som opfylder modulus 11 tjekket. Jeg benytter den angivne 'fødselsdag og laver en tæller som går fra 0001 - 9999 og bruger 'tælleren som løbe nummere.

If check_dato = True Then

For i = 1 To 9999
løbenummer = Format(i, "000#")


  a = Mid(dag, 1, 1)
    b = Mid(dag, 2, 1)
    c = Mid(md, 1, 1)
    d = Mid(md, 2, 1)
    e = Mid(år, 3, 1)
    f = Mid(år, 4, 1)
    g = Mid(løbenummer, 1, 1)
    h = Mid(løbenummer, 2, 1)
    i = Mid(løbenummer, 3, 1)
    j = Mid(løbenummer, 4, 1)

Next

End If

End Sub