Как автоматически изменить некорректные поля на числа?

Public Function SanitData(ByRef rng As Range) As Double
   Dim data As String
   Dim ret As Double
   
   data = SanitizeNumbers(CStr(rng.Value))
   
   SanitData = IIf(Len(data) > 0, CDbl(data), 0)
End Function

Private Function SanitizeNumbers(ByVal data As String) As String
    Dim pos As Long
    Dim char As Long

    data = Replace(data, ".", ",")
    pos = 1
    Do While pos <= Len(data)
        char = Asc(mid$(data, pos, 1))
        If Not (Chr(char) Like "[0-9,]") Then
            data = Replace(data, Chr(char), "")
            pos = pos - 1
        End If
        pos = pos + 1
    Loop
    SanitizeNumbers = data
End Function