Kompilatorn stannar på det rödmarkerade. Vad är fel?
Public Function TestPattern(Specs)
Dim oRegExp As Object: Set oRegExp = [red]New RegExp[/red]
oRegExp.Global = False
oRegExp.IgnoreCase = True
oRegExp.Pattern = "(^\.)|(\.{2})|(\.$)|(\s)"
If oRegExp.Test(Specs(1)) Then TestPattern = False Else TestPattern = Specs(1)
End Function
MVH