VB高手进!!!急救啊~~~~~~~~

Dim i As Integer, k1 As Integer, k2 As Integer, k3 As Integer, k4 As Integer
For i = 1000 To 9999
k4 = Int(i / 1000) '千位
k3 = Int((i - k4 * 1000) / 100) '百位
k2 = Int((i - k4 * 1000 - k3 * 100) / 10) '十位
k1 = i - k4 * 1000 - k3 * 100 - k2 * 10 '个位
If k1 - k2 = 1 And k2 - k3 = 2 And (k1 * 1000 + k2 * 100 + k3 * 10 + k4) + i = 10109 Then
MsgBox "这个数是：" & i
Exit For
End If
Next

Dim a, b, c, d As Integer
For a = 0 To 9 Step 1
For b = 0 To 9 Step 1
For c = 0 To 9 Step 1
For d = 0 To 9 Step 1
If a - 1 = b Then
If c = b - 2 Then
If 10109 = 1001 * d + 110 * c + 110 * b + 1001 * a Then
MsgBox d & c & b & a
End If
End If
End If
Next
Next
Next
Next