Есть алгоритм подсветки синтаксиса, но пара проблем:

• 1) Разбиваем текст на строки
• 2) Разбиваем строки по пробелам на слова
• 3) Проходимся по массиву слов и проверяем if($code_word==$words[$k])
• 4) Если найдено совпадение производим замену preg_replace("/{$words[$k]}/is", '<font color="' . $color['key_word'] . '">' . $words[$k] . '</font>', $code_word);

Private Function QQ() - работает
End Function - работает
Private Function QQ(ByRef Q) - не работает т.к. строка `QQ(ByRef`!=`ByRef`
... As Long) - не работает т.к. строка `Long)`!=`Long`
Я исправил так:

	if($code_word==$vb_words[$k] || 
		(substr($code_word, 0, -1)==$vb_words[$k] && substr($code_word, -1)==')') ||
			(substr($code_word, 1)==$vb_words[$k] && substr($code_word, 0, 1)==')') ||
				substr($code_word, -5)=='ByRef' || substr($code_word, -5)=='ByVal') {

CStr(i) - не работает т.к. строка `CStr(i)`!=`CStr` ну короче много таких случаев

Теперь забыли всё, что сказано выше. Требуется написать регулярку которая будет пропускать "КлючСлово"
И если с одной стороны пробел то с др. может быть: , или ) или ]
Иначе если с другой стороны пробел то с др. может быть: ( или [
И в обоих случаях до `(` или после `)` может быть любой набор символов т.к. `ИмяФункции(ByRef`

Чтобы проще понять варианты:

	if (preg_match("/^{$vb_words[$k]}(\(|\[|\,)[^\s]*$/i", $code_word)) {
		print 'да';
	} else {
		print 'нет';
	}

	if (preg_match("/^([^a-zA-zа-яА-я_])*CStr([^a-zA-zа-яА-я_])*$/is", ':CStr')) {
		print 'да';
	} else {
		print 'нет';
	}