Una prova che potresti fare è questa: ti crei un modulo così

codice:
Function numerica(stringa) As Double
Dim i As Long
Dim a
Dim temp As String

For i = 1 To Len(stringa)
    a = Mid(stringa, i, 1)
    If a Like "[0-9]" Then
        temp = temp & a
    End If
Next i

numerica = temp

End Function
e poi richiami la funzione così
=numerica(a1)

fammi sapere.