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.GetEncodin…