خطا در بلوک If

[Juliet]

درود دوستان
این خلاصه ای از کد پشت Text Box منه، اما به محض فشردن هر کلیدی (Key Down) روی سطری که قرمز کردم خطا میده متن خطاش هم اینه:

چرا باید رو این سطر این خطا رو بده؟
Compile Error
End If without block If (http://uplod.ir/9iybudzqiftv/x.jpg.htm)

Private Sub tb_Code_e_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If (KeyCode = 13) Then

For i = 2 To 294
If (Worksheets(1).Cells(i, 1) = tb_Code_s.Text) Then
If (Cells(3, 1) = "") Then
Row_Num = 3
End If
Do
Cells(...
Cells(...
Cells(...
Cells(...
i = i + 1
While (Worksheets(1).Cells(i, 1) = tb_Code_e.Text)

End If
Next i

tb_Code_s = ""
tb_Code_e = ""
End If
End Sub

[~M*E*H*D*I~]

درود


do

loop while

اصلاح کنید

[Juliet]

واااای
چه گیجم، بیخود نیست میگن عجله کار شیطونه، ولی خودمونیم ارورش نکته انحرافی داشت

سپاس