vb統計相同字符的數量?