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

Dim hMimeMessage As MimeMessage
Dim aString As String
hMimeMessage.Headers [ Name As String ] = aString

Sets the value of the Name header.