[RESOLVED] Block if without end if

[_MeRKeZ_]

Hi friends,

I receive the same error message which is "Block if without end if"

If you tell the where the mistake is, it will be perfect for me.
I have been dealing with this problem for hours

If kategori2 = "" And kategori3 = "" And kategori4 = "" Then
        Open "D:\\test.txt" For Input As #1
            Input #1, okunan
                   If InStr(1, okunan, kategori1, 1) <= 0 Then
                MsgBox "Böyle bir kayıt yok."
                Exit Sub
     ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 4, 1) Then
        w = Left(okunan, M - 4)
        w = Trim(w)
        u = Len(w)
    
    ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 5, 1) = "" Then
        w = Left(okunan, M - 5)
        w = Trim(w)
        u = Len(w)
    
    ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 6, 1) = "" Then
        w = Left(okunan, M - 6)
        w = Trim(w)
        u = Len(w)
   
    ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 7, 1) = "" Then
        w = Left(okunan, M - 7)
        w = Trim(w)
        u = Len(w)
    
    ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 8, 1) = "" Then
        w = Left(okunan, M - 8)
        w = Trim(w)
        u = Len(w)
    End If
    
    If Mid(w, u - 1, 1) = "" Then
        c = Mid(w, u, 1)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 2, 1) = "" Then
        c = Mid(w, u - 1, 2)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 3, 1) = "" Then
        c = Mid(w, u - 2, 3)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 4, 1) = "" Then
        c = Mid(w, u - 3, 4)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 5, 1) = "" Then
        c = Mid(w, u - 4, 5)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 6, 1) = "" Then
        c = Mid(w, u - 5, 6)
        c = stok_sayisi + c
    End If
    Text_stok_sayisi.Text = c
    
 
End Sub