Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ary() As Integer = {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text}
Dim strMsg As String
Dim i As Integer
Array.Sort(Ary)
strMsg = ""
For i = 0 To Ary.Length - 1
strMsg &= Ary(i) & " "