[Reks888]

Код Максима кстати можно немного укоротить:

Function GetDigit$(val%,pos%)
 Return Mid(val%,pos%,1)
End Function

Ну это так, для справки