79638353

Date: 2025-05-26 05:39:25
Score: 1
Natty:
Report link
Function KeepNumericAndDot(str As String) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9\.\-]+"
        KeepNumericAndDot = .Replace(str, "")
    End With
End Function
Reasons:
  • Low length (0.5):
  • Has code block (-0.5):
  • Low reputation (1):
Posted by: kingsbane