Во введённом трехзначном целом числе расположить цифры в порядке возрастания - VB

Private Sub Command1_Click()
 
 a = Mid(Text1.Text, 1, 1)
 b = Mid(Text1.Text, 2, 1)
 c = Mid(Text1.Text, 3, 1)
 
If a > b Then
     If a > c Then
        big = a
        Else: sbig = a
     End If
          
     Else
        If a > c Then
        sbig = a
        Else: lbig = a
     End If
End If
 
If b > c Then
   If big = a Then
    Text2.Text = a & b & c
   End If
   If sbig = a Then
    Text2.Text = b & a & c
   End If
   If lbig = a Then
    Text2.Text = b & c & a
   End If
Else
   If big = a Then
    Text2.Text = a & c & b
   End If
   If sbig = a Then
    Text2.Text = c & a & b
   End If
   If lbig = a Then
   Text2.Text = c & b & a
   End If
 End If
   
End Sub
 
Private Sub Text1_Keypress(KeyAscii As Integer)
 Select Case KeyAscii
   Case 48 To 57
   Case Else
   KeyAscii = 0
 End Select
End Sub