VisualBasic2008Expressでプログラムしています。

次のようなことがしたいです。どのようなサブルーチンのコードを書けばよろしいでしょうか？ よろしくお願い申し上げます。

サブルーチン名は「ShowUrlInWb」とします。

(1) ByRef の string 変数 「str」 に格納されているURL（"http://example.com/" など）を、WebBrowserコンポーネント ByRef の WebBrowser コンポーネント「strWbName」 に表示させることを試みる。タイムアウトの時間は、1/1000秒単位で、ByRef の integer 変数「intTimeOut」で指定します。
(2-1) 表示がComplateしたら、ByRef の string 変数 「strResult」に、文字列 "Sccess" を格納する。
(2-2) 表示させることが失敗したり、そのURLにあるウェブページが存在しなかったりした場合には、同じく 「strResult」に、文字列 "Failure" を格納する。