regex - vbscript 正規表現へのアクセス 無効なプロシージャ コールまたは引数

Question

フォームを使用してデータを入力するメモ フィールドを持つアクセス テーブルがあり、ユーザーが新しいデータを入力する前に、(Apr-01) の形式で日付が追加されます。保存すると、新しいデータが上部に追加されます。次に、フィールドに入り、最新のデータを取得する次のような関数を作成して、一番上に表示します。

サンプルデータ

Apr-01 - new data
Mar-09 - old data
etc

最新を取得する関数:

Public Function GetLatest(text As String) As String
    If (IsNull(text)) Then
        GetLatest = ""
    Else
        Set objRegExpr = New regexp

        objRegExpr.Pattern = "([A-Za-z]{3}-[0-9]{2})"
        objRegExpr.Global = True
        objRegExpr.IgnoreCase = True

        Set colMatches = objRegExpr.Execute(text)

        del = colMatches(1)
        txt = Split(text, del)
        GetLatest = txt(0)
    End If
End Function

イミディエイト ウィンドウでこの関数を実行すると、期待どおりの結果が得られますが、クエリで同じ関数を実行すると、invalid procedure or argumentこの行を指していますdel = colMatches(1)。私は何が欠けていますか？