Dim oid As Object = CType(myCall, ITLegacyCallMediaControl2).GetIDAsVariant( _
      "comm/datamodem")
    Dim id As IntPtr = System.Runtime.InteropServices.Marshal.ReadIntPtr(oid, 0)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov