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

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

Sets the value of the Name header.