Identifying fonts

When I need to identify a font, I use the following service:

http://www.identifont.com/identify.html

Another great service that I had used is this:

http://www.fontspace.com/category/led

In addition to these, if I want to see all the fonts on a literal, I use the following vbs which will open word and display the literal in the fonts that is installed on my machine:

On Error Resume Next

'Open a new instance of Microsoft Word.
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

For Each strFont in objWord.FontNames
 'Choose Courier because it is just plain text anyway.
 'So, for all fonts that are less or greater than Courier ...
 If strFont <> "Courier" Then
 'Change the formatting and colour for the main letters.
 objSelection.Font.Size = 48
 objSelection.Font.Bold = True
 objSelection.Font.Italic = True
 objSelection.Font.Color = vbRed
 'or choose the Red, Green, Blue number
 'objSelection.Font.Color = RGB(255,0,0)
 objSelection.Font.Name = strFont
 'The quoted text below will be formatted as set above.
 'Change the text in quotes to what you want.
 'It now types the main text into the document.
 objSelection.TypeText "H & M H&M N"
 'Create a new line.
 objSelection.TypeText(Chr(11))
 'Reset formatting to smaller black normal text now.
 'Change the formatting to suit.
 objSelection.Font.Size = 16
 objSelection.Font.Bold = False
 objSelection.Font.Italic = False
 objSelection.Font.Color = vbBlack
 'Now have it type in the actual font name and optional text.
 'The text in double-quotes can be changed or left out.
 objSelection.TypeText strFont & " (as Bold Italic Size 48)"
 'Create a new paragraph and then repeat for the next font.
 objSelection.TypeParagraph()
 End If
Next