search criteria where contains other than specified condition using Regex

[abenitez77]

I have a variable with a string...and I want to know if it contains any value other than single quote, comma and a space ("', ") I'm using vba in excel. for example, i have a variable

This should return > 0:
strA = "'test', 'player'"

I want to check to see if strA has any characters other than "', " (single quote, comma and space).

This should return 0
second example:
strA = ",'"

I tried using regex but I'm getting a match when i only have comma, single quote and space. Can someone help ?

If RegexCountMatches(" ',',' ',''", "\S[^,']") > 0 Then
  msgbox("found match")
Endif 

Public Function RegexCountMatches(str As String, reg As String) As String
    On Error GoTo ErrHandl
    Set regex = CreateObject("VBScript.RegExp"): regex.Pattern = reg: regex.Global = True
    If regex.test(str) Then
        Set matches = regex.Execute(str)
        RegexCountMatches = matches.Count
        Exit Function
    End If
ErrHandl:
    RegexCountMatches = CVErr(xlErrValue)
End Function

 

[footoo]

Without regex :

If Len(Replace(Replace(Replace([A1], "'", ""), ",", ""), " ", "")) > 0 Then MsgBox "Found"

 

[abenitez77]

Without regex :

If Len(Replace(Replace(Replace([A1], "'", ""), ",", ""), " ", "")) > 0 Then MsgBox "Found"

Thanks! I will use this, but would also like to know why my regex did not work? Anyone else can answer that?