sooooo:

Code:
Dim N1 As Byte
Dim N2 As Byte
Dim N3 As Byte

Dim I As Word
Dim Temp As Byte
Dim Temp2 As Byte
Dim Temp3 As Byte
Dim Temp4 As Byte

I = 255

N1 = I / 100

Temp2 = N1 * 100
Temp = I - Temp2
N2 = Temp / 10

Temp2 = N1 * 100
Temp3 = N2 * 10
Temp4 = Temp2 + Temp3
Temp = I - Temp4
N3 = Temp
das musste einbinden

I: deine zahl
N1: erste Stelle
N2: zweite Stelle
N3: dritte Stelle

und dann lässte im main jeweils auf der passenden stelle n1, n2 und n3 ausgeben

Martin