Just change the line
If (strNewWSName Like "*[:\/?[*[[]*") + (strNewWSName Like "*]*") Then