***************************************************************
固定長処理用。
文字列を指定バイト数に調整する
2バイト文字に対応
【引数】Value ：対象の文字列
Length ：バイト数
***************************************************************
Public Function fString_FixLength(Value As String, Length As Long) As String
'+ 指定の長さの固定長にする
Dim Val As String
Val = fString_LeftB(Value & String$(Length, " "), Length)
'2バイト文字で切れた場合、不足１バイト分調整
If fString_LenB(Val) <> Length Then
Val = Val & " "
End If
fString_FixLength = Val
End Function