VBA help!

[Dr Delphi]

Hi Guys,

Can anyone help with my vba being a pain in the backside? I'm inputting a simple string from excel into my function (something like 6c) and I'm hoping that it will use the case structure to return a decimal to the cell its invoked from.

TYIA

Function levelToDec(level As Characters)

Dim LdecLevel As Long

Select Case level
    Case "2"
        LdecLevel = "2.0"
    Case "3c"
        LdecLevel = "3.1"
    Case "3b"
        LdecLevel = "3.2"
    Case "3a"
        LdecLevel = "3.3"
    Case "4c"
        LdecLevel = "4.1"
    Case "4b"
        LdecLevel = "4.2"
    Case "4a"
        LdecLevel = "4.3"
    Case "5c"
        LdecLevel = "5.1"
    Case "5b"
        LdecLevel = "5.2"
    Case "5a"
        LdecLevel = "5.3"
    Case "6c"
        LdecLevel = "6.1"
    Case "6b"
        LdecLevel = "6.2"
    Case "6a"
        LdecLevel = "6.3"
    Case "7c"
        LdecLevel = "7.1"
    Case "7b"
        LdecLevel = "7.2"
    Case "7a"
        LdecLevel = "7.3"
End Select

levelToDec = LdecLevel

End Function

 

[james.miller]

Change the first line to

Function levelToDec(level As String)

 

[Dr Delphi]

Change the first line to

Function levelToDec(level As String)

Thanks, and I have also fixed it being case sensitive and Long (not returning a dec.... its been a while since I've been coding...).