vb6.0对全角半角字符串进行混合截位（2）

'---------------------------------------------------------------------

 ' 文字列の先頭から指定した桁数を取り出す
' 引数：　sData　　　　処理前文字列
'              iLen 　　　　 取り出す桁数
' 戻り値：LeftString   処理後文字列
'----------------------------------------------------------------------
Function LeftString(ByVal sData As String, ByVal iLen As Integer) As String
    ' バイトデータを格納用
    Dim bBuffer() As Byte
    ' 判定フラグ
    Dim i As Integer
   
    i = 0
   
    ' 文字列をユニコードに転換する
    bBuffer = StrConv(sData, vbFromUnicode)
   
    ' 文字列の先頭から指定した桁数を取り出す
    LeftString = StrConv(LeftB(bBuffer, iLen), vbUnicode)
    i = InStr(sData, LeftString)
   
    ' 取得した文字列が正しいかどうかを判定する
    If i = 0 Then
        LeftString = StrConv(LeftB(bBuffer, iLen - 1), vbUnicode)
    End If
End Function