文字化けの判定 (ID:102896)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 テキストデータを指定バイト数分切り取った場合、文字を半分にしてしまうことがあります。 その判定をしたいです。 たとえば、次のような場合です。 debug.print StrConv(LeftB(StrConv("あいう1えお", vbFromUnicode),10), vbUnicode) そこで、最後の一文字を取得して判定しようと考え、関数を作ってみました。 Private Sub ChkMoji(moji As String) Dim bytCode() As Byte Dim i As Integer Dim strChar As String strChar = StrConv(moji, vbNarrow + vbUpperCase + vbHiragana) Select Case AscW(strChar) Case &H21 To &H7E Debug.Print "アスキー" Case &H3042 To &H3093 Debug.Print "ひらがな" Case Else bytCode = StrConv(strChar, vbFromUnicode) If bytCode(0) >= &H88 And bytCode(0) < &H98 Then Debug.Print "第一水準" ElseIf bytCode(0) = &H98 And bytCode(1) <= &H72 Then Debug.Print "第一水準" ElseIf bytCode(0) >= &H98 And bytCode(0) < &HFC Then Debug.Print "第二水準" ElseIf bytCode(0) = &HFC And bytCode(1) <= &H4B Then Debug.Print "第二水準" End If End Select End Sub でもこれでは不十分で、全角の記号が判定できません。 全角の記号を判定する方法を教えてもらえないでしょうか？ テキストデータには何でも入るようにしています。 （制限は何もありません） 開発環境は、vb6のSP6でwin7です。 実行環境は、win98〜win7が考えられます。 よろしくお願いします。