VBA RemAlpha Function: End of Statement

Dear all,

Please help!

I have cells that contain both a number and letters at the end (0.00 BDL). I want to eliminate all the BDL by a function in VBA. But this function is not recognized in Excel 2007. What is wrong with this? Thanks.

Function RemAlpha(strS As String),RemAlpha = Val(strS)

End Function