Vb.net 基于文本框文本向DataGridView添加行

我需要根据文本框中的数字添加大量行。如果我在文本框中输入一个数字，那么将添加一定数量的行

例如，Textbox.Text=7产生7个新行

---

我该怎么做呢？

它可能看起来像：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim numRows As Integer
    If Integer.TryParse(TextBox1.Text, numRows) Then
        If (numRows >= 1) Then
            For i As Integer = 1 To numRows
                DataGridView1.Rows.Add()
            Next
        Else
            MessageBox.Show("Value: " & TextBox1.Text, "Number of Rows must be Greater Than or Equal to 1")
        End If
    Else
        MessageBox.Show("Value: " & TextBox1.Text, "Invalid Integer")
    End If
End Sub