Select Case iFontsUsed
Case 0
sResult = "No fonts are used in the current document."
Case 1
sResult = "The following font is used in the current document:" & vbCrLf & vbCrLf
Case Else
sResult = "The following " & iFontsUsed & " fonts are used in the current document:" & vbCrLf & vbCrLf
End Select