VB6で漢字の1バイト目か2バイト目かの判定

質問

例えば、"123あいう"と"4え5おか"という文字があるとします。
これを前から5バイト取得したい、ただし、5バイト目が漢字の1バイト目なら4バイトを取得したいのですが、漢字の1バイト目か2バイト目か簡単に判定する方法をご存知の方いらっしゃらないでしょうか？
よろしくお願い致します。

"123あいう"は、"123あ"と"いう"に、
"4え5おか"は、"4え5"と"おか"に分割したいということです。

回答No.1

noname#22222

通常は、

? LeftH("123あいう", 4)
123
? LeftH("123あいう", 5)
123あ

と思いますが...

Public Function LenH(ByVal Text As String) As Integer
　　LenH = LenB(StrConv(Text, vbFromUnicode))
End Function

Public Function LeftH(ByVal Text As String, ByVal L As Integer) As String
　　Dim I As Integer
　　Dim J As Integer
　　Dim K As Integer

　　J = Len(Text)
　　For I = 1 To J
　　　　If LenH(Left$(Text, I)) > L Then
　　　　　　Exit For
　　　　End If
　　　　K = I
　　Next I
　　LeftH = Left$(Text, K)
End Function

もしかして、下のような結果を望んでいるのでしょうか？

? LeftH("123あいう", 1)
1
? LeftH("123あいう", 2)
12
? LeftH("123あいう", 3)
123
? LeftH("123あいう", 4)
123あ
? LeftH("123あいう", 5)
123あ
? LeftH("123あいう", 6)
123あい
? LeftH("123あいう", 7)
123あい

Public Function LeftH(ByVal Text As String, ByVal L As Integer) As String
　　Dim I As Integer
　　Dim J As Integer
　　Dim K As Integer

　　J = Len(Text)
　　For I = 1 To J
　　　　If Not (LenH(Left$(Text, I)) <= (L + 1) And Len(Left$(Text, I)) <= L) Then
　　　　　　Exit For
　　　　End If
　　　　K = I
　　Next I
　　LeftH = Left$(Text, K)
End Function

お礼

回答ありがとうございました。
私の質問の仕方が悪かったのか、意図したものとズレがありました・・・申し訳ないです。