***************************************************************
文字列の右端が指定値でない場合に補完
【引数】Value ：対象の文字列
FixVal ：補完したい値
Compare ：文字列判定方法(VbCompareMethodに準拠)
***************************************************************
Public Function fString_Right_Fix(Value As String, FixVal As String, Optional Compare As VbCompareMethod = vbBinaryCompare) As String
If FixVal = "" Then
fString_Right_Fix = Value
ElseIf Value = "" Then
fString_Right_Fix = FixVal
Else
If fString_Right_With(Value, FixVal, Compare) = False Then
fString_Right_Fix = Value & FixVal
Else
fString_Right_Fix = Value
End If
End If
End Function