How to change font in MsgBox

Question

How do you change font in a MsgBox?

X = MsgBox(\"I want this to be bold times new roman.\")

Answer 1

I would add the pre /pre tags as shown below so that the format isn't lost. Then I would change the height/width to a standard minimum screen size like 800x400. Then for the visually impaired change the StatusBar to True which enables the "Change zoom level".

Sub CustomMsgBox(msg)
  Set ie = CreateObject("InternetExplorer.Application")
  ie.Navigate "about:blank"

  While ie.ReadyState <> 4 : WScript.Sleep 100 : Wend

  ie.ToolBar   = False
  ie.StatusBar = True
  ie.Width     = 800
  ie.Height    = 400

  ie.document.body.innerHTML = "
" & msg & "
" & _
    "
" & _
    "
"

  Set style = ie.document.CreateStyleSheet
  style.AddRule "p.msg", "font-family:times new roman;font-weight:bold;"
  style.AddRule "p.ctrl", "text-align:rightf;"

  ie.Visible = True

  On Error Resume Next
  Do While ie.Document.all.OK.value = 0 
    WScript.Sleep 200
  Loop
  ie.Quit
End Sub