sıralanacak sayılar

"SIRALANACAK SAYI ADEDİNİ GİRİNİZ:"
       
"BİRİNCİ SAYİYİ GİRİNİZ="
.
.
"N.SAYİYİ GİRİNİZ="

LÜTFEN SIRALAMA TÜRÜNÜ GİRİN(MAX/MİN)?

arkadaşlar örnekte anlattığım gibi kullanıcıya klavyeden gireceği sayı adedini ve bu sayıları girmesini istedikten sonra bunları max ve min şeklinde iki seçenekle büyükten küçüğe veya küçükten büyüğe sıralayacak studio.net kodlarına ihtiyacım var.bunlar console ekranında yapılacak... yardımcı olursanız sevinirim.

Bu sadece en büyük sayıyı gösteriyor.... Belki işine yarar

Private Sub Command2_Click()
Dim sayı1, sayı2, sayı3 As Double
sayı1 = InputBox("Birinci Sayıyı Giriniz")
Text1.Text = sayı1
sayı2 = InputBox("İkinci Sayıyı Giriniz")
Text2.Text = sayı2
sayı3 = InputBox("Üçüncü Sayıyı Giriniz")
Text3.Text = sayı3
If sayı1 > sayı2 Then
If sayı1 > sayı3 Then Text4.Text = sayı1
ElseIf sayı3 > sayı2 Then Text4.Text = sayı3
ElseIf sayı1 = sayı2 And sayı1 = sayı3 Then MsgBox ("Büyük Sayı Yoktur.Sayılar Eşit")
Text4.Text = sayı1
Else

Text4.Text = sayı2
End If
End Sub