Microsoft Office Communicator APIについて

Question

お世話になります。
Microsoft Office Communicator 2007のAPIを使用して定期的に在席ステータスを調べたいのですがエラーになってしまいます。何がおかしいのかアドバイスいただけないでしょうか？

参照設定でMicrosoft Office Communicator 2007 API Type Libraryを選んで、

Sub test()
Dim Obj1 As IMessenger
Dim Obj2 As IMessengerContact
Set Obj2 = Obj1.GetContact(MySigninName, MyServiceId)
Str_Status=Obj2.Status

End Sub

以下のようなエラーになってしまいます。

Run-time error '91':
Object variable or With block variable not set

Answer 1

Obj1 が初期化されていないようですが、何かインスタンスを New して入れないといけないのではないですか。

Answer 2

totojoさま
ありがとうございました。まさにそのとおりでした。お騒がせいたしました。
Set Obj1 = New messengerと追加してうまく値がとれるようになりました。

また機会がありましたらよろしくお願いします。