Set .Font = GetFont(, True, , "Times New Roman", 12)

Public Function GetFont(Optional Kursiv As Boolean = False, Optional Fett As _
  Boolean = False, Optional Charset As Font_Charset = ANSI_CHARSET, Optional _
  FontName As String, Optional FontSize As Long = -1, Optional Strikethrough As _
  Boolean = False, Optional Underline As Boolean = False, Optional Weight As _
  Long = 400) As stdole.StdFont
    Set GetFont = New stdole.StdFont
 
    If FontName = "" Then FontName = DefaultFont
    If FontSize = -1 Then FontSize = DefaultFontSize
 
    GetFont.Bold = Fett
    GetFont.Size = FontSize
    GetFont.Name = FontName
    GetFont.Italic = Kursiv
    GetFont.Charset = Charset
    GetFont.Underline = Underline
    GetFont.Weight = Weight
    GetFont.Strikethrough = Strikethrough
End Function