Vbscript Check If String Is Integer Vba