How to get font folder path?

Option Explicit
Private FontFolder As String

Private Sub Command1_Click()
FontFolder = Environ("WINDIR") & "\Fonts\"
MsgBox FontFolder
End Sub