Problème pour écrire une fonction

Public Function Escalation(Arg As Range) As String
    Dim elem As Variant
    Dim som As String
    Dim i As Integer
    
    For Each elem In Arg
        If (elem = "A") Then
            som = 0
        ElseIf (elem = "B") Then
            som = 0
        ElseIf (elem = "C") Then
            som = 1
        ElseIf (elem = "D") Then
            som = 1
        End if
    Next
    
    If (som = 0) Then
        Escalation = "Escalation 1"
    ElseIf (som = 1) Then
        Escalation = "Escalation 2"
    End If
End Function