RE: Scancriteria fence and selection set

[quote user="blumax57"]the depth of the tag is " " should skipped[/quote]

Dim text As String
text = " "
If vbNullString = Trim (text) Then
  ' text is empty
Else
  ' do something with text
End If

[quote user="blumax57"]how can I  see if the text is a numeric[/quote]

Dim numeric As String
Dim alpha As String
numeric = "1234"
alpha = "abc123"

If IsNumeric (numeric) Then
  Dim converted As Long
  converted = CLng (numeric)
  Debug.Print "Converted " & numeric & " to value " & CStr(converted)
End If

If IsNumeric (alpha) Then
Else
  Debug.Print "Unable to convert '" & alpha & "' to a number"
End If