Excel User Function - LENB (UTF-8 version)

' Excel ユーザー定義関数 - LENB (UTF-8版)
' .NET Framework が必要
Function LENBW8(str As String)
    Dim UTF8 As Object
    Dim byteCount As Integer

    Set UTF8 = CreateObject("System.Text.UTF8Encoding")
    byteCount = UTF8.GetByteCount_2(str)
    Set UTF8 = Nothing

    LENBW8 = byteCount
End Function