Private Function SplitString(ByVal str As String) As Boolean
Dim encoding As System.Text.Encoding
Dim bytes() As Byte
Dim enc As System.Text.Encoding
enc = encoding.GetEncoding("SHIFT_JIS")
bytes = enc.GetBytes(str)
If bytes.Length = str.Length * 2 Then
Return True
Else
Return False
End If
End Function