'******************************************************************************
'*  関数名：文字列置換（ReplaceStr）
'*  引　数：置換対象文字列（ByVal w_objstr As String）
'*  　　　　置換前文字列（ByVal w_findstr As String）
'*  　　　　置換後文字列（ByVal w_repstr As String）
'*  戻り値：置換後文字列（String）
'*  機　能：置換対象文字列の置換前文字列を置換後文字列に置換する
'******************************************************************************
Public Function ReplaceStr(ByVal w_objstr As String, ByVal w_findstr As _
        String, ByVal w_repstr As String) As String

Dim w_ins             As Long           '検索位置

    ' 戻り値に置換対象文字列をセットする
    ReplaceStr = w_objstr
    ' 検索位置を初期化する
    w_ins = 1
    ' ループを開始する
    Do
        ' 置換前文字列を検索する
        w_ins = InStr(w_ins, ReplaceStr, w_findstr)
        ' 置換前文字列が見つからない場合
        If w_ins = 0 Then Exit Do
        ' 置換前文字列を置換後文字列に置換する
        ReplaceStr = Mid$(ReplaceStr, 1, w_ins - 1) & w_repstr & Mid$( _
                ReplaceStr, w_ins + Len(w_findstr), Len(ReplaceStr) - w_ins + _
                Len(w_findstr) - 1)
        ' 次の検索位置を設定する
        w_ins = w_ins + Len(w_repstr)
    Loop

End Function