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