Excelマクロ

Function test(hoge As String)
    If hoge = "ど" Then
        test = 18
    ElseIf hoge = "れ" Then
        test = 17
    ElseIf hoge = "み" Then
        test = 16
    ElseIf hoge = "ふぁ" Then
        test = 15
    ElseIf hoge = "そ" Then
        test = 14
    ElseIf hoge = "ら" Then
        test = 13
    ElseIf hoge = "し" Then
        test = 12
    End If
End Function