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