nums = Val(hcount) +
nums = Val(hcount) + 1
filename = App.Path + "\notes\" & fnums & " " + filename + ".htm"
On Error GoTo