***************************************************************
文字列の左端を１文字削除（値指定の場合、指定値の場合のみ除去）
【引数】Value ：対象の文字列
Chop ：除去したい値
Compare ：文字列判定方法(VbCompareMethodに準拠)
***************************************************************
Public Function fString_Left_Chop(Value As String, Optional Chop As String, Optional Compare As VbCompareMethod = vbBinaryCompare) As String
If Value = "" Then Exit Function
If Chop = "" Then
fString_Left_Chop = Mid$(Value, 2)
ElseIf Value <> "" Then
If fString_Left_With(Value, Chop, Compare) = True Then
fString_Left_Chop = Mid$(Value, Len(Chop) + 1)
Else
fString_Left_Chop = Value
End If
End If
End Function