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