Question about searching for a quote in a String

[markronz]

Hello, I am using a form in VBA. I need to make sure that one of the text boxes has more than one quote in it. So " has to appear more than once in the string. Here is a portion of my code.

If InStr(Sheets("Type1").TextBox1.Value, """) > 1 Then
    MsgBox "String has more than one quote, continue with code"
End If

As you might have guessed, it doesn't like the triple quotes """. I can search for anything else "a", "b", etc and it works fine. So my basic question is, how do I search for a " since it's a key character?

Thanks!

 

[PHV]

Either:
If InStr(Sheets("Type1").TextBox1.Value, """") > 1 Then
Or:
If InStr(Sheets("Type1").TextBox1.Value, Chr(34)) > 1 Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[markronz]

Thanks!

 

[PHV]

make sure that one of the text boxes has more than one quote in it

strVar = Sheets("Type1").TextBox1.Value
intVar = Len(strVar) - Len(Replace(strVar, """", ""))
If intVar <= 1 Then
  MsgBox "'" & strVar & "' has only " & intVar & " quote in it"
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886