VB.NETのアウトライン設定の正規表現

こんにちは。

for EmEditor | 雪月花 – ソフトウェア開発プロジェクト
http://setsugecca.org/contents_sgc4ee.htm#vbnetPlusEsy

こちらのページのアウトライン設定でVB.NETの設定を利用させてもらっています。

関数名を抽出するために、このような正規表現が用いられています。

^(?!.*End )(?!.*’).*(Function|Sub)s+([^(]+).*$
置き換え $2

これでは、Sub (ByVal AFunction as AFunctionType)

という引数にFunctionという文字が含まれている場合に誤動作しております。

ですので、行頭にSub、もしくは、Subの一文字前にスペース
という条件を正規表現に盛り込みたいのですが

元の正規表現が何を表しているのか、読み解くのが難しく
指定する方法がわかりませんでした。

お詳しい方、教えていただけますと幸いです。

また、この例を用いなくとも
VB.NETのメソッド抽出のアウトライン設定をご存じでしたら教えてください。

よろしくお願いします。