(defmacro test-1 (var-name value expr)
  `(let ((,var-name ,value))
     ,expr))

(test-1 q 5 (+ 1 q))
; => 6

(define-syntax test-2
  (lambda (x)
    (syntax-case x ()
                ((_ var-name value expr)
                 (with-syntax ((var-name-1 (datum->syntax x var-name)))
                   #'(let ((var-name-1 value))
                       expr))))))
Syntax error:
unknown location: reference to pattern variable outside syntax form in form var-name