RosettaCodeData/Task/String-length/VBScript/string-length-1.vb