***************************************************************
固定長処理用。
文字列の左端から指定バイト数を切り出す
※VBAのLeftBが正しい値を返さない為
【引数】Value ：対象の文字列
Length ：バイト数
***************************************************************
Public Function fString_LeftB(Value As String, Length As Long) As String
If Length <= 0 Then Exit Function
'指定バイト数で切り出してみる
Dim Val As String
Val = prLeftB(Value, Length)
'切った位置が２バイト文字だった場合、調整する
If fString_Left_With(Value, Val) = False Then
Val = prLeftB(Val, Length - 1)
End If
fString_LeftB = Val
End Function
Private Function prLeftB(Value As String, Length As Long) As String
prLeftB = StrConv(LeftB$(StrConv(Value, vbFromUnicode), Length), vbUnicode)
End Function