Dim zahl1 As Long
Dim zahl2 As Long
Dim zahl3 As Long
 
zahl1 = Val(Left$(Text1.Text, 2))
zahl2 = Val(Mid$(Text1.Text, 3, 2))
zahl3 = Val(Mid$(Text1.Text, 5, 2))

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de