***************************************************************
文字列の左端が指定値か判定
【引数】Value ：対象の文字列
Find ：検索値
Compare ：文字列判定方法(VbCompareMethodに準拠)
【戻値】
***************************************************************
Public Function fString_Left_With(Value As String, Find As String, Optional Compare As VbCompareMethod = vbBinaryCompare) As Boolean
If Value = "" Or Find = "" Then Exit Function
If InStr(1, Value, Find, Compare) = 1 Then
fString_Left_With = True
End If
End Function