VBA Function Statement

Dear all,

i have this code below and its not working:

Public Function BonusCalculation_1(Branch As String, Tier As String, Rating As Double)

If Branch = "LA2" Then
   If Tier = "3R" Then
                If Rating = 5 Then
                    BonusCalculation_1 = 3000
                ElseIf Rating = 4 And Rating =3 Then
                    BonusCalculation_1 = 2000
                Else
                    BonusCalculation_1 = 0
                End If

   Else
   
   If Tier = "2R" Then
         
                If Rating = 5 Then
                    BonusCalculation_1 = 2500
                ElseIf Rating = 4 And Rating = 3 Then
                    BonusCalculation_1 = 1500
                Else
                    BonusCalculation_1 = 0
                End If

    Else
    
    End If

End If
    
End Function