VBA MS Access : If .. ElseIf ... Else

Option Compare Database

Sub fungsi5()

If 1 > 4 Then

    MsgBox "1 lebih besar nilainya daripada 4"

ElseIf 2 > 4 Then

    MsgBox "2 lebih besar nilainya daripada 4"

ElseIf 3 > 4 Then

    MsgBox "3 lebih besar nilainya daripada 4"

Else:

MsgBox "1, 2 atau 3  nilainya lebih kecil daripada 4"

End If

End Sub