Вы можете сделать это так (пример на RegExr )
^(?:[^']*?)(CreateObject\(".*?"\))
Не уверен насчет регулярного выражения VB6s - но для этого не нужно заглядывать вперед или назад.
Первая группа захвата - это часть CreateObject(..)
. Вам нужно будет использовать многострочный режим (если это возможно в VB6).