[OSのVer]:Windows [VBのVer]:VB.NET > 下記ではどうでしょう > > Private Function fLenB(ByVal MyString As String) As Integer > fLenB = System.Text.Encoding.GetEncoding("shift-jis").GetByteCount(MyStrin g) > End Function ありがとうございます。 さっそく、上記のFunction文ソースに挿入して、 試してみます。