vb.Net Checking to see what are the two Largest Numbers - vb.net

Question

I have 4 text box that accepts numbers from user and i want to check for what are the two largest numbers entered, can this be done using if then else statements
Dim Big_num_1 As Integer
Dim Big_num_2 As Integer
'Dim txtbox_1 As Integer
'Dim txtbox_2 As Integer
'Dim txtbox_3 As Integer
'Dim txtbox_4 As Integer
Private Sub btnShow2BigNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow2BigNum.Click
'if then else statements
End Sub
i am a beginer in Vb.net and i would really appreciate any help that i can get
If possible i would like a If then else statement solution for this

Answer 1

This can be done with an if-statement like this..
Dim Big_num_1 As Integer = 0
Dim Big_num_2 As Integer = 0
'Dim txtbox_1 As Integer
'Dim txtbox_2 As Integer
'Dim txtbox_3 As Integer
'Dim txtbox_4 As Integer
Private Sub btnShow2BigNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow2BigNum.Click
Dim numList(4) as Integer
numList(0) = txtbox_1
numList(1) = txtbox_2
numList(2) = txtbox_3
numList(3) = txtbox_4
For x as Integer = 0 to numList.count - 1
If numList(x) > Big_num_1 Then
Big_num_2 = Big_num_1
Big_num_1 = numList(x)
Else If numList(x) > Big_num_2 Then
Big_num_2 = numList(x)
End If
Next
End Sub

Answer 2

Private Sub Docheck()
Dim Numbers As String() = {TextBox1.Text, TextBox2.Text, TextBox3.Text}
Dim Ordered As String() = Numbers.OrderByDescending(Function(x) CInt(x)).ToArray
Dim Highest As Integer = CInt(Ordered(0))
Dim SecondHighest As Integer = CInt(Ordered(1))
MessageBox.Show(String.Concat(Highest , " " , SecondHighest))
End Sub
And in your button click event you call
Docheck()

Answer 3

You could use If/Else statements, but that would be the hard way to do this:
Private Sub btnShow2BigNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow2BigNum.Click
Dim Numbers = { TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text }
Dim results = Numbers.Select(Function(s) Integer.Parse(s)).OrderByDescending().Take(2).ToList()
Big_num_1 = results(0)
Big_num_2 = results(1)
End Sub