Изменение шрифта в MsgBox - VB

Формулировка задачи:

Кто знает: как можно изменить шрифт (сам шрифт, размер, начертание) для MsgBox? a) единым разом для всех Msgbox данного проекта (во всех модулях) b) внутри отдельного MsgBox (различное написание отдельных частей сообщения).

Решение задачи: «Изменение шрифта в MsgBox»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    Dim Text As String
    Me.AutoRedraw = True
    Me.FontName = "Arial"
    Me.FontSize = 32
    Text = "Многострочный" & vbNewLine & "текст"
    Me.Width = Me.TextWidth(Text) + (Me.Width - Me.ScaleWidth)
    Me.Height = Me.TextHeight(Text) + (Me.Height - Me.ScaleHeight)
    Me.Print Text
End Sub
                        