I need to get a list of fonts available on the system and use it in Access VBA. I think something like the code below should work, but apparently either I'm not getting the right dll or I'm not using it correctly. Can anyone help?

Thanks very much!

Public Sub ListAllFonts()

'Using Access 2003 VBA
'Added the following using Tools>References: System, System.Drawing.dll
'The Dim statements return an error of "User defined type not defined"

Dim fontCollection As New System.Drawing.Text.InstalledFontCollection
Dim fontFamily As System.Drawing.Text.FontFamily

For Each fontFamily In fontCollection
   Debug.Print fontFamily.Name
Next fontFamily

Set fontFamily = Nothing
Set fontCollection = Nothing

Exit Sub

End Sub

AppBuilder