Nu framgår det inte vad du menar med "rödmarkerat". Men annars är det ju en god idé att deklarera vilken datatyp din funktion ska returnera, samt vilken datatyp som parametern in till funktionen ska ha.
Trådstart#1
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