It seems you have too many parentheses for your setq statement? Try this:
(let ((vcount 0))
(setq vcount (vcount + 1) )
(define cntBy1 (makecounters))
I tested this briefly and it seems to work correctly now.
In reply to skillUser:
Thanks Lawrence that resolved the issue.