How to use VarPtr in VB.NET ?

   Imports rtis = System.Runtime.InteropServices

   Function VarPtr(ByVal e As Object) As Integer

        Dim GC As rtis.GCHandle
        Dim GC2 As Integer

        GC = rtis.GCHandle.Alloc(e, rtis.GCHandleType.Pinned)
        GC2 = GC.AddrOfPinnedObject.ToInt32

        GC.Free()

        Return GC2

    End Function