Desconto Dado de Acordo com o Sexo Função IIf

Sub desconto()
' Desconto Dado de Acordo com o Sexo
Dim valor As Currency
Dim sexo As String
valor = Val(InputBox("Digite o Valor da Mercadora"))
sexo = InputBox("Digite M para Masculino ou F para Feminino")
Dim valorfinal As Currency

valorfinal = IIf(sexo = "F", valor * 0.9, valor * 0.92)

MsgBox "Valor com Desconto: " & valorfinal
End Sub