Hola queria saber por que me tira un error de compilacion en esa parte(me lo marca en end sub, me dice blocke if sin end if)
Gracias. Soy nuevo con vb

Public Sub DoApuñalar(ByVal UserIndex As Integer, ByVal VictimNpcIndex As Integer, ByVal VictimUserIndex As Integer, ByVal daño As Integer)

Dim Suerte As Integer
Dim res As Integer

If UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 10 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= -1 Then
Suerte = 200
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 20 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 11 Then
Suerte = 190
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 30 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 21 Then
Suerte = 180
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 40 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 31 Then
Suerte = 170
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 50 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 41 Then
Suerte = 160
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 60 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 51 Then
Suerte = 150
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 70 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 61 Then
Suerte = 140
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 80 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 71 Then
Suerte = 130
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) <= 90 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 81 Then
Suerte = 120
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) < 100 _
And UserList(UserIndex).Stats.UserSkills(Apuñalar) >= 91 Then
Suerte = 110
ElseIf UserList(UserIndex).Stats.UserSkills(Apuñalar) = 100 Then
Suerte = 100
End If
If UCase$(UserList(UserIndex).Raza) = "ELFO OSCURO" Then
If UCase$(UserList(UserIndex).Clase) = "ASESINO" Then
res = RandomNumber(0, Suerte)
If res < 100 Then
res = 0
Else
res = RandomNumber(0, Suerte)
If res < 15 Then
res = 0

ElseIf UCase$(UserList(UserIndex).Clase) = "ASESINO" Then
res = RandomNumber(0, Suerte)
If res < 25 Then res = 0
Else
res = RandomNumber(0, Suerte * 1.25)
End If

If res < 15 Then
If VictimUserIndex <> 0 Then
UserList(VictimUserIndex).Stats.MinHP = UserList(VictimUserIndex).Stats.MinHP - Int(daño * 1.5)
Call SendData(ToIndex, UserIndex, 0, "||Has apuñalado a " & UserList(VictimUserIndex).Name & " por " & Int(daño * 1.5) & FONTTYPE_FIGHT)
Call SendData(ToIndex, VictimUserIndex, 0, "||Te ha apuñalado " & UserList(UserIndex).Name & " por " & Int(daño * 1.5) & FONTTYPE_FIGHT)
Else
Npclist(VictimNpcIndex).Stats.MinHP = Npclist(VictimNpcIndex).Stats.MinHP - Int(daño * 2)
Call SendData(ToIndex, UserIndex, 0, "||Has apuñalado la criatura por " & Int(daño * 2) & FONTTYPE_FIGHT)
Call SubirSkill(UserIndex, Apuñalar)
'[Alejo]
Call CalcularDarExp(UserIndex, VictimNpcIndex, Int(daño * 2))
End If
Else
Call SendData(ToIndex, UserIndex, 0, "||¡No has logrado apuñalar a tu enemigo!" & FONTTYPE_FIGHT)
End If

End Sub