una soluzione veloce (da controllare)
Ho 4 TextBox di partenza, nominati TextBox1...TextBox4
e 4 TextBox di arrivo, nominati TextBox5...TextBox8
codice:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim n As Integer = 0
Dim valori(3) As Double
n = 1
For i As Integer = 1 To 4
valori(i - 1) = CDbl(DirectCast(Me.Controls.Find("TextBox" & i, False)(0), TextBox).Text.Replace("."c, ","c))
Next
Array.Sort(valori)
n = 5
For Each v As Double In valori
DirectCast(Me.Controls.Find("TextBox" & n, False)(0), TextBox).Text = v.ToString
n += 1
Next
End Sub