Public Sub Main()
    Dim i As Integer
    Dim strFontName As String
    For i = 1 To Application.FontNames.Count' Loop for the number of fonts
        strFontName = Application.FontNames(i)' Place a font name in "strFontName"
        Selection.Font.Name = strFontName' Apply formatting with this font
        Selection.TypeText "This is " & strFontName & "." & Chr(13)' Insert sentence
    Next i
End Sub