Добавить строки в DataGridView на основе текста TextBox

Это может выглядеть примерно так:

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