VS 2010 Drag and Drop - Outlook Attachment

Dim theStream As Stream = DirectCast(e.Data.GetData("FileGroupDescriptor"), Stream)
            Dim fileGroupDescriptor As Byte() = New Byte(511) {}
            theStream.Read(fileGroupDescriptor, 0, 512)
 
            Dim fileName2 As New System.Text.StringBuilder("")
            Dim i As Integer = 76
            While fileGroupDescriptor(i) <> 0
                fileName2.Append(Convert.ToChar(fileGroupDescriptor(i)))
                i += 1
            End While
            theStream.Close()
 
            Dim theFile As String = "Z:\_TEST" + fileName2.ToString()
 
            Dim ms As MemoryStream = DirectCast(e.Data.GetData("FileContents", True), MemoryStream)
            Dim fileBytes As Byte() = New Byte(ms.Length - 1) {}
            ms.Position = 0
            ms.Read(fileBytes, 0, CInt(ms.Length))
 
            Dim fs As New FileStream(theFile, FileMode.Create)
            fs.Write(fileBytes, 0, CInt(fileBytes.Length))
 
            fs.Close()

Dim objOL As New Microsoft.Office.Interop.Outlook.Application
 
            Dim objMI As Microsoft.Office.Interop.Outlook.MailItem
            For Each objMI In objOL.ActiveExplorer.Selection()
                Dim strFile As String = IO.Path.Combine("Z:\_TEST", (objMI.Subject + ".msg").Replace(":", ""))
                Try
 
                    objMI.SaveAs(strFile)
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
            Next