Я нашел еще один выход из данной ситуации:
Local tmp_i,tmp_j
Dim nums(9,9)
Dim tmp_str$(9)
tmp_str$(1)="123456789"
tmp_str$(2)="434772267"
tmp_str$(3)="125624522"
tmp_str$(4)="123456789"
tmp_str$(5)="123344789"
tmp_str$(6)="111342789"
tmp_str$(7)="122355555"
tmp_str$(
="122222222"
tmp_str$(9)="123456780"
For tmp_i=1 To 9
For tmp_j=1 To 9
nums(tmp_j,tmp_i)=Int(Mid$(tmp_str$(tmp_i),tmp_j,1 ))
Next
Next
Теперь оно красиво заполняет масив nums как я и хотел