Hi guys,

At the end of a long, hard day slaving over a keyboard I'm befuddled
by something that should be easy (or so I thought).

For some reason the for next in the following doesn't loop!?!

Sub Test()
Dim i, BuildChkSum, ChkSum As Integer
 For i = 0 To i = 9
   BuildChkSum = Mid(1234567899, i + 1, 1) * 10 - i
   ChkSum = ChkSum + BuildChkSum
   i = i + 1
 Next i
Debug.Print i
Debug.Print ChkSum
End Sub

i comes out as 2 in the debug statement when I hoped it would be 9 -
seeing as it's not looping shouldn't it be 1?

Any ideas?

Cheers,
JF