LenBがどうしても使いたい
Function fnLenB(ByVal arg1) As Integer 'Require:Imports System.Text Try Dim enc As Encoding '@System.Text Dim ReturnInt As Integer enc = enc.GetEncoding("Shift_JIS") ReturnInt = enc.GetByteCount(arg1) Return ReturnInt Catch ex As Exception Return 0 End Try End Function