ActiveCell.Offset via Dim

Im creating a User Form with a long list of text boxes. I would like to make it easier for me to write the code by copying and pasting the ActiveCell.Offset statments and having the textbox number increase by 1 each time. Here is what I have done, but it does not work. If anyone knows the proper way to do this, I would appreciate it.

The Dim down works, but the nxpt does not

Dim down As Integer
Dim nxpt As Integer
nxpt = 1
down = 6
    
ActiveCell.Offset(down, 0) = textboxnxpt.Value

down = down + 1
nxpt = nxpt + 1

ActiveCell.Offset(down, 0) = textboxnxpt.Value

down = down + 1
nxpt = nxpt + 1