Largest and Smallest value

Option Explicit


Function MaxNb(WkVal As Long)
Dim WkTabl As Object
Dim Result As Long
Dim WkTxt  As String
Dim I  As Integer
Dim ValMax As Long
    WkTxt = WkVal
    Set WkTabl = CreateObject("Scripting.Dictionary")
    With WkTabl
        For I = 1 To Len(WkTxt)
            .Item(Mid(WkTxt, I, 1) * 1) = Mid(WkTxt, I, 1) * 1
        Next I
        For I = 1 To .Count
            ValMax = Application.WorksheetFunction.Max(Application.Transpose(.keys))
            MaxNb = MaxNb * 10 + ValMax
            .Remove (ValMax)
        Next I
    End With
End Function


Function MinNb(WkVal As Long)
Dim WkTabl As Object
Dim Result As Long
Dim WkTxt  As String
Dim I  As Integer
Dim ValMin As Long
    WkTxt = WkVal
    Set WkTabl = CreateObject("Scripting.Dictionary")
    With WkTabl
        For I = 1 To Len(WkTxt)
            If (Mid(WkTxt, I, 1) <> Empty) Then .Item(Mid(WkTxt, I, 1) * 1) = Mid(WkTxt, I, 1) * 1
        Next I
        For I = 1 To .Count
            ValMin = Application.WorksheetFunction.Min(Application.Transpose(.keys))
            MinNb = MinNb * 10 + ValMin
            .Remove (ValMin)
        Next I
    End With
End Function

Option Explicit
Function MaxNb2(WkVal As Long)
Dim WkTabl()
Dim Result As Long
Dim WkTxt  As String
Dim I  As Integer, J As Integer
Dim ValMax As Long
    WkTxt = WkVal
    ReDim WkTabl(1 To Len(WkTxt))
        For I = 1 To Len(WkTxt)
            WkTabl(I) = Mid(WkTxt, I, 1) * 1
        Next I
        For I = 1 To Len(WkTxt)
            ValMax = Application.WorksheetFunction.Max(WkTabl)
            MaxNb2 = MaxNb2 * 10 + ValMax
                For J = 1 To UBound(WkTabl, 1)
                    If (ValMax = WkTabl(J)) Then
                        WkTabl(J) = 0: Exit For
                    End If
                Next J
        Next I
End Function
Function MinNb2(WkVal As Long)
Dim WkTabl()
Dim Result As Long
Dim WkTxt  As String
Dim I  As Integer, J As Integer
Dim ValMin As Long
    WkTxt = WkVal
    ReDim WkTabl(1 To Len(WkTxt))
        For I = 1 To Len(WkTxt)
            WkTabl(I) = Mid(WkTxt, I, 1) * 1
        Next I
        For I = 1 To Len(WkTxt)
            ValMin = Application.WorksheetFunction.Min(WkTabl)
            MinNb2 = MinNb2 * 10 + ValMin
                For J = 1 To UBound(WkTabl, 1)
                    If (ValMin = WkTabl(J)) Then
                        WkTabl(J) = 99: Exit For
                    End If
                Next J
        Next I
End Function