Compile Error: Expected END SUB in End Sub

[HexManiatic]

I need help whit a problem when i try to test my program this message appears
C:\Users\Ivan\Desktop\empresa.bas(404) error 124: Expected 'END SUB' in 'End Sub'
Here you have that part of the code:

Sub IncrementarS()
        Dim X as Double
         CLS
         Input "Dame la clave del empleado al cual se le va a incrementar el sueldo", Dato
         BuscarNodo( L, Dato )
         If ( NodoActual <> Null ) then
             Input ("Dame el incremento del sueldo", x
             tDato^.Sueldo <- tDato^.Sueldo + X
         Else
             Print ("El empleado no existe")
        End If
        Print "Pulsa cualquier tecla para regresar al menu principal"
    sleep
End Sub  

[ramedju]

Which specific line do you actually have the Error? Is this an Excel VBA or what?

[HexManiatic]

I actually found out the problem ty anyway the problem where that i didn´t put an End Sub in a line up there in my program so.
It´s FreeBasic btw