הדרך פשוטה מאוד:
אתה צריך לעשות בעיקרון 4 לולאות, נגיד באיפ של הלולאה הראשונה הוא יבדוק אם t1 גדול מ-t2 וכך הלאה עד t4
וכך עם כל t מה הקיימים.

הרעיון בגדול הוא כזה, אתה לוקח את האיבר הראשון ובודק אם הוא קטן מהשני, אם כן אז אתה מחליף בינהם. אתה לקוח שוב את האיבר הראשון ובודק אם הוא קטן מהשלישי, אם כן אז אתה מחליף בינהם. אתה לוקח שוב את האיבר הראשון ובודק אם הוא קטן מהרביעי ואם כן אז מחליף. מה שאתה מקבל בסיום השלב הזה הוא שהאיבר הראשון הוא כעת הגדול ביותר. עכשיו אתה עושה את אותו דבר עם האיבר השני ומשווה מול שאר האיברים (3,4) ובסיום השלב הזה השני בגודלו יהיה באיבר השני. וכן הלאה. הנה הקוד לביצוע הדבר הזה:

    Dim lFirst As Long     
    Dim lLast As Long
    Dim i As Long
    Dim j As Long
    Dim dblTemp As Double
    
    lFirst = 1    'זו התיבה הראשונה
    lLast = 4     'זו התיבה האחרונה
    
    For i = lFirst To lLast - 1
        For j = i + 1 To lLast
            If CDbl(Me.Controls("T" & i)) < CDbl(Me.Controls("T" & j)) Then
                dblTemp = CDbl(Me.Controls("T" & i))
                Me.Controls("T" & i).Text = CDbl(Me.Controls("T" & j))
                Me.Controls("T" & j).Text = dblTemp
            End If
        Next j
    Next i

מקוה שזה עוזר לך,