Visual Basic HELP

Problem je sledeč:
Imam 6 Text box-ov.
Primer:
Vrednost textbox1 = 10000; textbox2 = 10000
Zmnožek teh dveh Textbox-ov = 100000000
Vprašanje:
Kako bi lahko spravil to vrednost - (100000000) v preostale štiri Textboxe, tko da mi npr. pokaže
Textbox3 = 100
Textbox4 = 000
Textbox5 = 000
Textbox6 = 00 - decimalna mesta
A je to sploh možno narest?
Hvala za pomoč!
Lp,
:\ ZeroC00l1!

Dim strNumber As String, arrBuffer() As String

...

strNumber = Text1.Text

'najprej preberemo decimalke

if Not (Replace(strNumber, ".", "") = strNumber) Then
arrBuffer = Split(strNumber, ".")
ElseIf Not (Replace(strNumber, ",", "") = strNumber) Then
arrBuffer = Split(strNumber, ",")
EndIf
'v četrti TextBox zapišemo prve 3 decimalke
if LBound(arrBuffer) = 1 Then Text4.Text = Mid(arrBuffer(1), 1, 3) Else Text(4).Text = "000"

'nato zapišemo še celi del števila v Ostale TextBox-e

if Len(Buffer(0)) >= 3 Then Text(3).Text = Mid(arrBuffer(0)), Len(arrBuffer(0)) - 2, 3) _
Else Text(3).Text = Mid(arrBuffer(0), 1, Len(arrBuffer(0))

if Len(Buffer(0)) >= 6 Then Text(3).Text = Mid(arrBuffer(0)), Len(arrBuffer(0)) - 5, 3) _
Else Text(3).Text = Mid(arrBuffer(0), 1, Len(arrBuffer(0) - 3)

...

Tako nekako, upam da nisem spregledal kakega error-ja... :D

LP,

čuj ti si sm poglej v MSDNju za vsako funkcijo se po sebej LEn pa take kr mas res lepo razlozeno .. ce ne pa pro bi tlele

webblod sem se že prijavil!
Se oglasim, če mi kej rata spacat!;)
Hvala!
Lp,
ZeroC00l1!