Пользователь вводит 4 числа.Найти разность двух наибольших из них

 Dim MaxValue1 As Integer
        Dim MaxValue2 As Integer
        Dim result As Integer
        Dim Numbers As New List(Of Integer)
        Numbers.Add(10)
        Numbers.Add(13)
        Numbers.Add(15)
        MaxValue1 = Numbers.Max()
        Numbers.Remove(Numbers.Max())
        MaxValue2 = Numbers.Max()
        result = MaxValue1 - MaxValue2
        MsgBox(result)

 Dim MaxValue1 As Integer
        Dim MaxValue2 As Integer
        Dim result As Integer
        Dim Numbers As New List(Of Integer)
        Numbers.Add(10)
        Numbers.Add(130)
        Numbers.Add(1000)
        MaxValue1 = Numbers.Max()
        Numbers.Remove(Numbers.Max())
        MaxValue2 = Numbers.Max()
        result = MaxValue1 - MaxValue2
        MsgBox("Первое максимальное число: " & MaxValue1 & vbNewLine & _
               "Второе максимальное число: " & MaxValue2 & vbNewLine & _
               "Разность двух чисел: " & result)

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim X(3) As Double
 
        X(0) = CDbl(TextBox1.Text)
        X(1) = CDbl(TextBox2.Text)
        X(2) = CDbl(TextBox3.Text)
        X(3) = CDbl(TextBox4.Text)
 
        Array.Sort(X)
        If X(3) > X(2) Then
            TextBox5.Text = X(3) - X(2)
        Else
            TextBox5.Text = X(2) - X(3)
        End If
    End Sub

Dim MaxValue1 As Integer
        Dim MaxValue2 As Integer
        Dim Numbers As New List(Of Integer)
        Numbers.Add(TextBox1.Text)
        Numbers.Add(TextBox2.Text)
        Numbers.Add(TextBox3.Text)
        Numbers.Add(TextBox4.Text)
        MaxValue1 = Numbers.Max()
        Numbers.Remove(Numbers.Max())
        MaxValue2 = Numbers.Max()
        TextBox5.Text = MaxValue1 - MaxValue2

        Dim Val As New List(Of Integer)
        Val.AddRange(New Integer() {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text})
        Val.Sort()
        MsgBox("Разность максимальных значений: " & Val(Val.Count - 1) - Val(Val.Count - 2))