Хм... Можно так:
Dim cif(100)
Cls
a=1234
Print "Число: " + a
b$=a
l=Len(b$)
Dim cif(l)
For i=1 To l
Select Mid(b$,i,1)
Case "1"
cif(i)=1
Case "2"
cif(i)=2
Case "3"
cif(i)=3
Case "4"
cif(i)=4
Case "5"
cif(i)=5
Case "6"
cif(i)=6
Case "7"
cif(i)=7
Case "8"
cif(i)=8
Case "9"
cif(i)=9
Case "10"
cif(i)=10
End Select
Print "Число №" + i + " - " + cif(i)
Next
While Not KeyHit (1)
Wend