Sub MAIN
Dim dlg As DocumentStatistics
GetCurValues dlg
CurTemp$ = dlg.Template
button = MsgBox("Do you want to edit " + CurTemp$ + "?", 36)
If button = 0 Then Goto bye
FileOpen .Name = CurTemp$, .AddToMru = 0
bye:
End Sub