Access VBAで指定文字（記号）で囲まれた文字部分だけを抽出する関数

' 指定文字で囲まれた文字列部分の文字部分だけを抽出する関数
Function EnclosedString(検索文字列 As String, Optional 開始対象 As String = "(", Optional 終了対象 As String = ")")
    Dim startNum As Integer, endNum As Integer
    startNum = InStr(検索文字列, 開始対象)
    endNum = InStr(startNum + 1, 検索文字列, 終了対象)
    
    If startNum <> 0 And endNum <> 0 Then
        startNum = startNum + Len(開始対象)
        EnclosedString = Mid(検索文字列, startNum, endNum - startNum)
    Else
        EnclosedString = ""
    End If
End Function

EnclosedString([検索文字列], "@", "@")

EnclosedString("<--x123456-->","<--","-->")