… = .MimePart.Headers[…] (gb.mime)

Dim hMimePart As MimePart
Dim aString As String
aString = hMimePart.Headers [ Name As String ]

Returns the Name header.