getting data from command button in userform why is my code not working?

Public Sub ymstoredata()
q = 1
Range("a2") = Me.TextBox1.Value
Range("b2") = Me.TextBox2.Value

End Sub

Private Sub CommandButton1_Click()

End Sub

Public Sub UserForm_Click()
Do While q = 1
q = 1
ymstoredata
qstn = InputBox(prompt:="Add new data?")
If qstn = y Then
ymstoredata
Else
q = 2
Unload UserForm1

End If

Loop
End Sub

The code is suposed, to take the values from the form and store it in the sheet and then loop through and ask the user if it wants to add another record and if question )qstn = y (yes) then loop and get new data to store in sheet
above code is not working ,can an expert please explain to me why it doesnt work and what i must do to make it work?
Thank you very much i greatly appreaciate your help!!!!!!!!!!!
also i will need simple code to add a new record underneath the previous one

heres the new program below according to the help provided so far, yet it doesnt work! yet can someone please help?
The program simply gets info from the text box and should loop through when the user wants to add new records
the code doesnt work why?
Thank you for your help

code Public Sub ymstoredata()
Dim q As Integer
Dim qstn As String
q = 1
Do While q = 1
Range("a2") = Me.TextBox1.Value
Range("b2") = Me.TextBox2.Value

qstn = InputBox(prompt:="Add more data?")
If qstn = y Then
'let program loop to begining of loop and show textbox again
q = 1
Else
q = 2
Unload UserForm1

End If

Loop
End Sub /code

i have made the adjustments, thank you and now i get an invalid outside procedure on qtest why?? thanks for the help
code Public CommandButton1_Click()

Dim qtest As Integer
Dim qstn As String
Const qtest = 1

Do While qtest = 1
q = 1
Range("a2") = Me.TextBox1.Value
Range("b2") = Me.TextBox2.Value

qstn = InputBox(prompt:="Add more data?")
If qstn = y Then
'let program loop to begining of loop and show textbox again
qtest = 1
Else
qtest = 2
Unload UserForm1

End If

Loop
End Sub/code

ok then how else can i asign the value 1 to qtest when not using const ?

invalid outside procedure <-- i get that message when i just code qtest = 1 and remove the const

Thank you for the information, could you please advice to what must i must do now??
heres the revised little program
code Public CommandButton1_Click()

Dim qtest As Integer
Dim qstn As String
qtest = 1
Do While qtest = 1
qtest = 1
Range("a2") = Me.TextBox1.Value
Range("b2") = Me.TextBox2.Value

qstn = InputBox(prompt:="Add more data?")
If qstn = y Then
'let program loop to begining of loop and show textbox again
qtest = 1
Else
qtest = 2
Unload UserForm1

End If

Loop
End Sub /code

heres the latest code, the program is finaly running again, yet it now loops at <add new data> and doesnt show the textbox again to enter new data
i also need the coding to add new records underneath each other and obviously not using direct cell adress names
thank you so much for your help!
the program now display the text box and ask if you want o ad another record and works fine when i say no and when i say yes
it displayes again "want to add another record" and then it never gives me the textbox again to display the data
why is that? and how can we fix it o work like i want it?

codePublic Sub CommandButton1_Click()

Dim qtest As Integer
Dim qstn As String
qtest = 1
Do While qtest = 1
qtest = 1
Range("a2") = Me.TextBox1.Value
Range("b2") = Me.TextBox2.Value

qstn = InputBox(prompt:="Add more data?")
If qstn = "y" Then
'let program loop to begining of loop and show textbox again
qtest = 1
Else
qtest = 2
Unload UserForm1

End If

Loop
End Sub /code

all the coding is done in the form module an explanatory solution will be greatly appreciated thank you

Thank you very much for your help. Your coding is very proffesional. Perfect! you are a very skilled VB programmer!! Thank you very much for taking the time to help me, i sincerely appreciate it, if i can ever return a favour, dont hesitate to ask.. Im new at this forum and should probably go read the forum rules too! it was just urgent for me to fix this problem thank you again, very much!!

Thank you i figured out how the code works, however could you explain this part to me?
code Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 2).Value = Array(Me.txtHeaderA.Text, Me.txtHeaderB.Text,me.combobox.text)/code
and can i do this, to add more items for example a combobox, will it work if i add it to the array? what and how must i change to adda third column that accept the input of the combo?
Thanks again for your help!!