Sub MAIN
   Dim dlg As DocumentStatistics
   GetCurValues dlg
   Insert " " + dlg.Directory + "\" + dlg.FileName
   StartOfLine 1
   Font "Times New Roman", 8
   ChangeCase 0
   CharRight 1
End Sub