label loop for next visual basic - vb.net

Question

Currently my code looks like this:
Private Sub btnMotivate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMotivate.Click
Dim intNumber As Integer
Dim strStudy As String = "Study!"
intNumber = InputBox("How many times do you want to be motivated? Please use numbers!")
If intNumber < 1 Then
MessageBox.Show("Please use a number from 1 - 10!")
End If
If intNumber > 10 Then
MessageBox.Show("Please use a number from 1 - 10!")
End If
> For intCounter = 1 To intNumber Step 1
lblMotivation.Text = strStudy
> Next
End Sub
As you can see, I have added a variable and the loop runs fine, but I need help phrasing the code so whatever number the user inputs, is the number of lines of "Study!" displayed. I have tried using the string but also using the label with Environment.NewLine hoping it would add a new line every time the loop runs

Answer 1

You are setting the label text to strStudy each time. This doesn't add to what's there already, it just replaces it.
You need to add strStudy to the text that already exists, something like this:
' start with an empty string
lblMotivation.Text = ""
For intCounter = 1 To intNumber Step 1
' append the study string and a newline
lblMotivation.Text = lblMotivation.Text & strStudy & Environment.NewLine
Next

Answer 2

Instead of using a TextBox, use a ListBox to display the word Study! n -times. It is also good practice not to instruct the user to do something, but prevent it in code. Also note how intNumber has been changed to *inp*Number As Object
Private Sub btnMotivate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMotivate.Click
Dim inpNumber As Object
Dim strStudy As String = "Study!"
Dim intCounter As Integer
inpNumber = InputBox("How many times do you want to be motivated?")
If Not IsNumeric(inpNumber) Then
MessageBox.Show("Please enter a number!")
ElseIf inpNumber < 1 OrElse inpNumber > 10 Then
MessageBox.Show("Please enter a number from 1 - 10!")
Else
ListBox1.Items.Clear()
For intCounter = 1 To inpNumber Step 1
ListBox1.Items.Add(strStudy)
Next
End If
End Sub