Разработайте программу, которая во введённом трехзначном целом числе располагает цифры в порядке возрастания

Function SortDigits(n As Integer) As Integer
    Dim ar(2) As Integer
    ar(0) = n \ 100
    ar(1) = n \ 10 Mod 10
    ar(2) = n Mod 10
    Dim i As Integer, j As Integer
    
    For i = 0 To 1
        For j = i To 2
            If ar(i) > ar(j) Then
                Dim temp As Integer
                temp = ar(i)
                ar(i) = ar(j)
                ar(j) = temp
            End If
    Next j, i
    SortDigits = ar(0) * 100 + ar(1) * 10 + ar(2)
End Function

Function SortDigits(n As Long) As Long
    Dim m As Long, index As Integer
    m = n
    Dim ar() As Integer
    'Массив по количеству цифр в числе
    ReDim ar(Fix(Log(CDbl(n)) / Log(10)))
    'Перенос цифр из числа в массив
    While (m <> 0)
        ar(index) = m Mod 10
        m = m \ 10
        index = index + 1
    Wend
    Dim i As Integer, j As Integer, temp As Integer
    'Сортировка массива по возрастанию
    For i = 0 To UBound(ar) - 1
        For j = i To UBound(ar)
            If ar(i) < ar(j) Then
                temp = ar(i)
                ar(i) = ar(j)
                ar(j) = temp
            End If
    Next j, i
    'Вывод результата
    For i = 0 To Ubound(ar)
        SortDigits = SortDigits + ar(i) * 10 ^ i
    Next i
End Function

Function SortDigits(n As Long) As Long
    Dim s As String, i As Integer
    For i = 0 To 9
        s = s & String(UBound(Split(CStr(n), CStr(i))), CStr(i))
    Next i
    SortDigits = CLng(s)
End Function