This will be the last, also found but very confusing:
Call fontAdd("MSGothic", "MSGothic")
Private Function fontAdd(vsFontName As String, vsFileName As String) As Boolean
Dim sTmp As String, sSysPath As String
Dim lResult As Long
Const COPY_TO_FONTS_FOLDER = False
#If Win32 Then
sTmp =...