Find object's unique ID

[Dv1]

VBscript-Indesign CS4

I am trying to display the ID of a selected object, but I don't know
what I'm doing, this is what i have:

Function main()
Set myInDesign = CreateObject("InDesign.Application.CS4")
myInDesign.Activate
If myInDesign.Documents.Count <> 0 Then
If myInDesign.Selection.Count <> 0 Then
Set ObjID = InDesign.Selection.Pageitems.ID
MsgBox (ObjID & "Test")

Else
MsgBox ("Please select an object and try again.")
End If
Else
MsgBox ("Please open a document, select an object, and try again.")
End If
End function