Excel UDF Function if Statement giving me error

Question

Hello , The UDF function works only for one of the conditions and errors if there is more than one, using else if did not want to work, What am I doing wrong? Thank you

Function Calc(rowaddress)
If (cells(rowaddress.row,6).value="F" or cells(rowaddress.row,6).value="P" _
And cells(rowaddress.row,16).value=0 _
And cells(rowaddress.row,10).value<24) _
then Calc=24-cells(rowaddress.row,10).value
Else If (cells(rowaddress.row,6).value="F" or cells(rowaddress.row,6).value="O" _
And cells(rowaddress.row,16).value<>0 _
And cells(rowaddress.row,10).value>24) _
then Calc=24+cells(rowaddress.row,10).value
else calc=0

I inherited a long formula that a function will do wonders with it, it has 9 different conditions, any help will be greatly appreciated.

Thank you

Answer 1

It is amazing how “else” in separate line makes the difference, your help was really appreciated and I would love to buy you lunch if I can, you made my day.
Thank you
Coach z

Answer 2

Thank you.
Error says end without if block, when I look at the code the system change my Else if to Else: If.
The formula works only when I leave only the first condition and remove the others, others comes with #value! In the cell result.
Appreciate your help.

Answer 3

VBA is ElseIf.

https://www.educba.com/vba-else-if/

Function Calc(rowaddress)
    If ((cells(rowaddress.row,6).value="F" or cells(rowaddress.row,6).value="P")
            And cells(rowaddress.row,16).value=0
            And cells(rowaddress.row,10).value<24)
    then 
        Calc=24-cells(rowaddress.row,10).value
    ElseIf ((cells(rowaddress.row,6).value="F" or cells(rowaddress.row,6).value="O")
            And cells(rowaddress.row,16).value<>0
            And cells(rowaddress.row,10).value>24)
    then 
        Calc=24+cells(rowaddress.row,10).value
    else 
        calc=0
    End if
End Function