VBSでUNICDEの全角文字数を判断する関数

' UNICODEでも全角半角の文字数を判断するメソッド
Function LenByte(ByVal s)

    Dim c, i, k

    c = 0

    For i = 0 To Len(s) - 1

        k = Mid(s, i + 1, 1)

        If (Asc(k) And &HFF00) = 0 Then

            c = c + 1

        Else

            c = c + 2

        End If

    Next

    LenByte = c

End Function