msgbox schrift ändern

Sub DatumZeitAnzeigen()
Dim i As Integer
Dim wota As String
i = Application.Weekday(Date)
Select Case i
Case 1
wota = "Sonntag"
Case 2
wota = "Montag"
Case 3
wota = "Dienstag"
Case 4
wota = "Mittwoch"
Case 5
wota = "Donnerstag"
Case 6
wota = "Freitag"
Case 7
wota = "Samstag"
End Select
MsgBox "Heute ist  " & wota & ", der " & Date _
& " , " & Time & " Uhr!", vbInformation, "TOOL"
With MsgBox
.Font.Name = "courier"
.Font.Size = 14
End With
End Sub