Rodrigo MZ

Estou aprendendo a mexer no VBA e estou tentando fazer uma função que utilize uma fórmula específica conforme as duas condições que especifiquei, mas com o código que eu fiz ela considera a variável eixo sempre igual a "ESR". O que eu devo fazer? Function FEC(carga As Single, eixo As String) As Single Dim text As String func1 = 2.0872 / 10000 * carga ^ 4.0175 'eixo simples carga < 8 func2 = 1.832 * 10 ^ (-6) * (carga ^ 6.2542) ' eixo simples carga >=8 func3 = 1.592 / 10000 * (carga ^ 3.472) 'eixo tandem duplo carga < 11 func4 = 1.528 / 1000000 * carga ^ 5.484 ' eixo tandem duplo carga >= 11 func5 = 8.0359 / 100000 * carga ^ 3.3549 'eixo tandem triplo carga <18 func6 = 1.3229 / 10000000 * carga ^ 5.5789 ' eixo tandem tripo carga >=18 eixo = Left(text, 3) If eixo = ESR And carga < 8 Then FEC = func1 ElseIf eixo = ESR And carga >= 8 Then FEC = func2 ElseIf eixo = ETD And carga < 11 Then FEC = func3 ElseIf eixo = ETD And carga >= 11 Then FEC = func4 ElseIf eixo = ETT And carga < 18 Then FEC = func5 ElseIf eixo = ETT And carga >= 18 Then FEC = func6 End If End Function