Function GetDigit%(number%, digit%) Return Floor(number / (10 ^ (digit - 1)) Mod 10) End Function Print GetDigit(76589, 4) ;Печатает "6"