TIP: View System Fonts

Shell the fonts folder.

Private Sub Command1_Click()
 Shell("rundll32.exe shell32.dll, _ 
 SHHelpShortcuts_RunDLL FontsFolder")
End Sub