Something like the following, ams16?

Code:

    Dim d As Double
    d = Val(Replace("-50,3dBm@1MHz", ",", "."))