مساعدة في مصفوفة

Dim i() As Integer = {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text}

Array.Sort(i)

Try

a.Text = ""

Catch ex As Exception

End Try

TextBox5.Text = i(0)

TextBox6.Text = i(1)

TextBox7.Text = i(2)

TextBox8.Text = i(3)