日付文字列から括弧（「（」と「）」）および括弧内の文字を除去するVBA関数

' 機能概要: 文字列から括弧と括弧内の文字を除去
' 引数:
'   strText - 処理する文字列
' 戻り値:
'   String - 括弧と括弧内の文字が除去された文字列

Function RemoveParentheses(strText As String) As String
    Dim startPos As Integer
    Dim endPos As Integer
    Dim strLeftPart As String
    Dim strRightPart As String

    ' 開始括弧（「（」）の位置を探す
    startPos = InStr(strText, "（")
    ' 終了括弧（「）」）の位置を探す
    endPos = InStr(startPos, strText, "）")

    ' 括弧が見つからなければ、元の文字列を返す
    If startPos = 0 Or endPos = 0 Then
        RemoveParentheses = strText
        Exit Function
    End If

    ' 開始括弧より前の文字列
    strLeftPart = Left(strText, startPos - 1)
    ' 終了括弧より後の文字列
    strRightPart = Mid(strText, endPos + 1)

    ' 結合して返す
    RemoveParentheses = strLeftPart & strRightPart
End Function