sub condition()

    dim x as integer : x = 5
    dim y as integer : y = 10

    if x > y then
        ' if condition is True
        msgbox(x & " is greater than " & y)
    else if y = 15 then
        ' if previous condition is False and this one is True
        msgbox(y & " is egual to 15")
    else
        ' if none of the previous conditions is True
        msgbox(x & " is lower than " & y)
    end if

end sub