VB高手看看

Dim x, a, b, c, d, e, f, g
x = Val(Text1.Text)
Text2.Text = x \ 1000000
a = x Mod 1000000
Text3.Text = a \ 100000
b = a Mod 100000
Text4.Text = b \ 10000
c = b Mod 10000
Text5.Text = c \ 1000
d = c Mod 1000
Text6.Text = d \ 100
e = d Mod 100
Text7.Text = e \ 10
f = e Mod 10
Text8.Text = f

帮手改下那里错