Searching for " in userform textbox input

[supdawg]

This one should be easy. Just trying to apply some crude check on a userform to ensure that the end users are entering the text as

19"
20"
22"
etc

key is the " at the end

Here's what I've done to check that its 3 digits.

'check for a part size length
If Len(Me.TextSize.Value) <> 3 Then
  Me.TextSize.SetFocus
  MsgBox "Part Size is not 3 digits. Please ensure it's entered as 19"""
  Exit Sub
End If

How can I check the string to ensure it has the " at the end? I've tried Find, but it doesn't appear to work with ".

 

[xenou]

How about adding it if it's missing?

Dim blnOK As Boolean

blnOK = False
If (IsNumeric(Left(Me.TextSize.Value,2)) And (Len(Me.TextSize.Value) = 2) Then
        Me.TextSize.Value = Me.TextSize.Value & Chr(34) '//Add Quote
	blnOK = True
ElseIf (IsNumeric(Left(Me.TextSize.Value,2)) And (Len(Me.TextSize.Value) = 3)  And (Right(Me.TextSize.Value,1) = Chr(34)) Then
        blnOK = True
End If

End If
If Not blnOK then
    Me.TextSize.Value = ""
    Msgbox "Part size must be a two digit number followed by a quote"
    Me.TextSize.SetFocus
End If

This way your input works for both:
22
22"

Otherwise per your original spec:

Dim blnOK As Boolean

blnOK = False
If Len(Me.TextSize.Value) = 3 Then
        If IsNumeric(Left(Me.TextSize.Value,2)) And Right(Me.TextSize.Value,1) = Chr(34) Then
            blnOK = True
	End If
End If

If Not blnOK then
    Me.TextSize.Value = ""
    Msgbox "Part size must be a two digit number followed by a quote"
    Me.TextSize.SetFocus
End If

 

[supdawg]

Thank you.. Testing your first solution, but I get red lines on If and ElseIf

I keep looking at the code, I don't see what's missing other than there are two End If statements?

Edit: Nevermind, I got it working, it was missing a couple of closing parentheses.

Your solution is much better, that way they won't need to worry about entering the quote.