You can build your array with an empty string as the new last element, then change the value of the last element to Chr(11)
.
varNo = Array("\", "/", ":", "*", "?", """", "<", ">", "|", "")
varNo(UBound(varNo)) = Chr(11)
Actually, I'm unsure why that should be necessary. This works for me ...
varNo = Array("\", "/", ":", "*", "?", """", "<", ">", "|", Chr(11))
Based on the comments, I think it will be useful to confirm the text you're evaluating actually contains the characters you expect. Feed the text to this procedure and examine its output in the Immediate window.
Public Sub AsciiValues(ByVal pInput As String)
Dim i As Long
Dim lngSize As Long
lngSize = Len(pInput)
For i = 1 To lngSize
Debug.Print i, Mid(pInput, i, 1), Asc(Mid(pInput, i, 1))
Next
End Sub