Compile error

[hossein71]

سلام به همه دوستان
ارور زیر در کد زیر برای چیه؟(سرچ کردم اما به نتیجه ای نرسیدم)-به متغیر shs گیر میده.


Compile errror:
Invalid Next Control Variable refrence




Function CountCharacters(txt As String, Characters As String, Shartstring() As String, Ashartinteger() As Integer, Bshartinteger() As Integer, shs As Integer, Ashi As Integer, Bshi As Integer) As Integer
f = 0
t = 0
x1 = 0
While InStr(x1 + 1, txt, Characters) <> 0
x2 = InStr(x1 + 1, txt, Characters)
For v = 0 To shs
If InStr(x1 + 1, txt, Shartstring(v)) = 0 Then
f = f + 1
End If
Next shs
For v = 0 To Bshi
If Ashartinteger(v) = Bshartinteger(v) Then
f = f + 1
End If
Next Bshi
If f = shs + Bshi Then
t = t + 1
End If
x1 = x2
Wend
CountCharacters = t
End Function

[sajjad_india]

متغیر ها رو تعرسف کن در سورست
مثلا

Dim x as string
Dim y as integer
Dim i as byte