MsgBox - Верхняя строка сообщения жирным шрифтом

Private Sub Test_WizHook()
    With WizHook
        .Key = 51488399 '"магическое" число
        .WizMsgBox "жЫрный текст @ @ не жирный текст", "заголовок", vbYesNoCancel, 0, vbNullString
    End With
End Sub

Работатает только в данном порядке:
       StringBold
       и ниже строки
       StringNormal


Ещё вариант:

Private Sub TestBoldMsgBox()
 
    Dim MsgBold As String
    Dim MsgNormal As String
 
    MsgBold = "This is a Bold Message"
    MsgNormal = "This is a  Normal Message"

    MsgNormal = Eval("MsgBox ('" & MsgBold & _
    "@" & MsgNormal & "@', " & vbOKOnly & ", 'Testing Bold')")
 
End Sub