Генерация случайных чисел в заданном диапазоне - Visual Basic .NET

Public Class Form1
    Sub GenerateNumbers() 'процедура генерации чисел
        Dim Section(2) As Integer
        Dim R As New Random
        For I As Integer = 0 To Section.Length - 1
            Section(I) = R.Next(100, 1000)
        Next
        TextBox1.Text = TextBox1.Text & String.Join(".", Section.[Select](Function(x) x.ToString()).ToArray()) & vbNewLine
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        GenerateNumbers() ' по тику вызываем процедуру
    End Sub
    Dim k As Integer = 0 ' переменная следит за тем, нажата кнопка или нет
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If k = 0 Then
            Button1.Text = "Stop" ' присваиваем новый текст кнопке
            Timer1.Interval = 100 'задаем интервал таймера (0,1 секунда)
            Timer1.Enabled = True ' запускаем таймер
            k = k + 1
            GenerateNumbers() ' сразу генерируем число
        Else
            Button1.Text = "Generate"
            Timer1.Enabled = False
            k = 0
        End If
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Multiline = True
        TextBox1.ScrollBars = ScrollBars.Vertical
    End Sub
End Class