'open a notebook file
                 System.Diagnostics.Process.Start("Outlook.txt")
                 Dim ps As New ProcessStartInfo
                 With ps
                     .FileName = SI.Path.Combine(Application.StartupPath, "Outlook.txt")
                 End With
                 'Get the notepad memory address and freee the memory
                 Dim p As New Process
                 p.StartInfo = ps
00010:           p.Start()
                 Dim gh As GCHandle = GCHandle.Alloc(p, GCHandleType.Pinned)
                 Dim AddrOfMyString As IntPtr = gh.AddrOfPinnedObject()
                 gh.Free()