B4R Question Format number (tm1637 display)

Sub NumberToDigits(N As Int, NumDigits As Int) As Byte()
    Dim Digit(NumDigits) As Byte
   
    For I = 0 to Digit.Length - 1
        Dim N10 As Int = N / 10    
        Digit(I) = N - N10 * 10    ' + 0x30 if prefer ASCII '0' to '9'
        N = N10
    Next I
   
    Return Digit
End If

For Burl = 1 To 10
    Dim TestNumber As Int = Rnd(0, 20000)
    Dim TestDigits() As Byte = NumberToDigits(TestNumber, 5)
    Log(TestNumber & TAB & TestDigits.As(List) & TAB & TestDigits(4) & TestDigits(3) & TestDigits(2) & TestDigits(1) & TestDigits(0))
Next

Dim tmp(3) As Byte = NumberFormat(Temperature,3,0) 'OR
Dim str As String = NumberFormat(Temperature,3,0)