サイトによって表記方法はまちまちなので、汎用化はできないと思いますが、
> 「プログラミング - 第1章変数 - プログラミングブログ」
のように、タイトルが「 - 」で分離されているサイトに限定して実装するなら、
Split を使うのも一つの手です。

Dim title As String

title = "プログラミング - 第1章変数 - プログラミングブログ"

Dim titles() As String

titles = Split(title, " - ")