Hai,
What about this piece of code?

[vbcode]
Private Sub Command1_Click()
Dim strnumrow As String
Dim rslt As Integer
strnumrow = "1232,1213"
rslt = InStr(1, strnumrow, ",")
If rslt > 0 Then
MsgBox "found"
Else
MsgBox "not found"
End If
End Sub

[/vbcode]