タイトルを抜き出す際-(サイト名)の部分は切り取らないようにするにはどうすればいいでしょうか への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 魔界の仮面弁士  (社会人) 投稿日時 2011/2/9 21:37:20
サイトによって表記方法はまちまちなので、汎用化はできないと思いますが、
> 「プログラミング - 第1章変数 - プログラミングブログ」
のように、タイトルが「 - 」で分離されているサイトに限定して実装するなら、
Split を使うのも一つの手です。

Dim title As String
title = "プログラミング - 第1章変数 - プログラミングブログ"
Dim titles() As String
titles = Split(title, " - ")
投稿者 (削除されました)  () 投稿日時 2011/2/9 21:35:19
(削除されました)
投稿者 LOTUS  (社会人) 投稿日時 2011/2/9 21:12:04
タイトルを抜き出そうとすると

例えばタイトルが「プログラミングのやり方 - プログラミングブログ」みたいなものだと全部抜き出してしまいます。

このうち「プログラミングのやり方」だけを抜き出したいのですが正規表現の構造がわかりません。

「-」以下と指定すると

「プログラミング - 第1章変数 - プログラミングブログ」
のような場合 - 第1章変数が抜き出せなくなります