Public Function Create(ByVal expression As String) As Delegate
Dim result As New Delegate
Dim regex As New RegExp
regex.Pattern = "^\((([a-zA-Z][a-zA-Z0-9]*)(\,\s)?)*\)\s\=\>\s(.*)"
Dim regexMatches As MatchCollection
Set regexMatches = regex.Execute(expression)
If regexMatches.Count = 0 Then
Err.Raise 5, "Delegate", "Invalid anonymous method expression."
End If
Dim regexMatch As Match
For Each regexMatch In regexMatches
If IsEmpty(regexMatch.SubMatches(0)) Then