Public Function funClearString(ByVal strText As String) As String
Dim i As Integer
For i = 1 To Len(strText)
Select Case Mid(strText, i, 1)
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "(", ")", ",", "-"
Mid(strText, i, 1) = "*"
End Select
Next i
funClearString = Replace(strText, "*", "")
End Function
?funClearString("sdfa fg fgg (33,70-33,82)fgfg ghyee dsdfg (33.70-33.82)sd dfg ")
sdfa fg fgg fgfg ghyee dsdfg ..sd dfg
|