C# で xaml で TextBlock に Hyperlink を設定するサンプルはたくさん見つかるけれど～、
VB.NET でしかもプログラムコードで設定するサンプルはほとんど見つからなかったので～、
ご参考までにどうゾ～。
'テキストブロックを初期化
oTextBlock.Inlines.Clear
'ハイパーリンクを設定
Dim oHyperlink As New Hyperlink
'下線表示を消す
oHyperlink.TextDecorations = Nothing
'URI を設定
oHyperlink.NavigateUri = New Uri("https://elleneast.com")
'.NavigateUri を設定しただけではクリックしたときにジャンプしない。ジャンプを実行するためのイベントをラムダ式で設定。
AddHandler oHyperlink.RequestNavigate, Sub(sender, e) System.Diagnostics.Process.Start(e.Uri.ToString)
'フォーカスを受け取らないようにする（点線で囲まれないようにする）。
oHyperlink.Focusable = False
'ハイパーリンクにテキストを設定
oHyperlink.Inlines.Add("エレン・イーストのブログ")
'テキストブロックにハイパーリンクを追加。
oTextBlock.Inlines.Add(oHyperlink)
'oTextBlock.Text = "(^^)" 'Text を設定するとハイパーリンクの設定は破棄される
