регулярные выражения

Здравствуйте!
Есть регулярное выражение "(^\s*[s,S][u,U][B,b])\s*(.*?)(\?s*|\Z|\(.*?\))" сейчас его задача просто выбрать имя процедуры (далее его цвет надо менять), но... как модифицировать его чтобы можно было разбирать процедуры такого вида:
Sub Test(_
A, B, C, _
D X, F G,_
......
....., .....)
Сейчас разбирает однострочные (например: sub test(a,b,c))
Заранее благодарен за ответы.
С уважением.

Допиливай:

sub[ ]*(\w+)[ ]*\([ ]*(_\s*)?(([ ]*\w+[ ]*\w*[ ]*,)*(_\s*)?)*([ ]*\w+[ ]*\w*[ ]*)?\)

\s здесь означает и пробел, и перевод строки.

P.S. Какое отношение это имеет к Делфи?

на Дельфе пишется редактор кода, сам код VBS

Хоть бы версию Делфи и название используемой библиотеки для регэкспов сказал.