Public Class Form1

    Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
        Rand = Int((High - Low + 1) * Rnd()) + Low

    End Function



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim HumanInput, Label1Number, Label2Number, Label3Number, Randomnumber, Iterations As Single
        HumanInput = Int(TextBox1.Text) 'reads the input box
        Iterations = 0
        Label1Number = 0
        Label2Number = 0
        Label3Number = 0
        Randomnumber = 0

        If Label1.Text <> "Label1" Or Label2.Text <> "Label2" Or Label3.Text <> "Label3" Then
            Label1.Text = "Label1"
            Label2.Text = "Label2"
            Label3.Text = "Label3"
        End If





        If HumanInput >= 3 Then
            While Label1.Text = "Label1"
                Randomnumber = Rand(1, HumanInput)
                Label1Number = Randomnumber
                Randomnumber = Rand(1, HumanInput)
                Label2Number = Randomnumber
                Randomnumber = Rand(1, HumanInput)
                Label3Number = Randomnumber
                Iterations = Iterations + 1

                If Label1Number = Label2Number Or Label1Number = Label3Number Or Label2Number = Label3Number Then

                Else
                    Label1.Text = Label1Number
                    Label2.Text = Label2Number
                    Label3.Text = Label3Number
                    Label4.Text = Iterations

                End If

            End While
        Else
            Button1.Text = ("Number must be greater than 3")
        End If



    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

    End Sub
End Class