VB.netでLenBを使う

VB.netにはLenBがないので作った。

        Public Shared Function GetLenB(ByVal targetString As String, _
                                       Optional ByVal CharacterEncoding As String = "Shift_JIS") As Integer

            Dim LengthOfByte As Integer

                LengthOfByte = System.Text.Encoding.GetEncoding(CharacterEncoding).GetByteCount(targetString)

            Return LengthOfByte

        End Function