Как определить порядковый номер максимальной цифры числа - VB

Формулировка задачи:

Дано натуральное число в котором все цифры различны. Определить: а) порядковый номер его максимальной цифры считая номера: -от конца числа -от начала числа б)порядковый номер его минимальной цифры, считая номера: -от конца числа -от начала числа заранее от всей души благодарю!

Решение задачи: «Как определить порядковый номер максимальной цифры числа»

textual
                            Листинг программы 
                        

                            Private Declare Function QueryPerformanceFrequencyAny Lib "kernel32" Alias "QueryPerformanceFrequency" (lpFrequency As Any) As Long
Private Declare Function QueryPerformanceCounterAny Lib "kernel32" Alias "QueryPerformanceCounter" (lpPerformanceCount As Any) As Long
 
Sub Main()
    Dim frequency As Currency
    Dim startTime As Currency
    Dim endTime As Currency
    Dim resInt As Double, resFix As Double, resCycle As Double
    Dim i As Long, z As Single, q As Long
    
    If QueryPerformanceFrequencyAny(frequency) = 0 Then Stop
    
    QueryPerformanceCounterAny startTime
    For i = 0 To 100000000
    Next
    QueryPerformanceCounterAny endTime
    resCycle = (endTime - startTime) / frequency
    
    z = 9.8
    
    QueryPerformanceCounterAny startTime
    For i = 0 To 100000000
        q = Int(z)
    Next
    QueryPerformanceCounterAny endTime
    resInt = (endTime - startTime) / frequency - resCycle
 
    QueryPerformanceCounterAny startTime
    For i = 0 To 100000000
        q = Fix(z)
    Next
    QueryPerformanceCounterAny endTime
    resFix = (endTime - startTime) / frequency - resCycle
    
    MsgBox "Int: " & Format(resInt, "#0.000000s") & vbNewLine & _
           "Fix: " & Format(resFix, "#0.000000s") & vbNewLine & _
           "Cyc: " & Format(resCycle, "#0.000000s") & vbNewLine & _
           "Res: " & Format(1000000 / frequency, "####0.0000ns")
End Sub
                        