Boa tarde bdemeo,

Segue minha contribuição com a 2.

Option Explicit

Public Function Comissao(ByVal Valor As Currency) As Currency
Dim Final       As Currency
Dim i           As Long
Dim Faixa()
Dim Index()
   
    Faixa = Array(50000, 80000, 100000, 10 ^ 10)
    Index = Array(1.5, 2.5, 3.5, 4.5)
    
    For i = 0 To Application.WorksheetFunction.CountA(Faixa) - 1
        
        If Valor >= Faixa(i) Then
            If i > 0 Then
                Final = Final + ((Faixa(i) - Faixa(i - 1)) * Index(i))
            Else
                Final = Final + (Faixa(i) * Index(i))
            End If
        Else
            If i > 0 Then
                Final = Final + ((Valor - Faixa(i - 1)) * Index(i))
            Else
                Final = Final + Valor * Index(i)
            End If
            Exit For
        End If
    Next i

    Comissao = Format(Final / 100, "#,##0.00")

End Function

Qualquer coisa da o grito.
Abraço

Bernardo,

Você é O CARA!

Muito Obrigado meu velho, fez a boa !!