用VB编一道程序

单击窗体，要求用户在输入框中输入一个数，若该数是不多于６位的正整数，则挑出其中的偶数数字，将他们反序组成一个新的数并显示在文本框中，若数据不符合要求，则重新输入数据，直到数据合理为止。

Private Sub Command1_Click()
Dim n As Double
Dim m As Long
Dim r As Long
Do
n = Val(InputBox("输入N:"))
If n < 1000000 And n > 0 And Int(n) = n Then
Exit Do
Else
MsgBox "请输入不多于6位的正整数!"
End If
Loop While True
m = n
While m > 0
If m Mod 10 Mod 2 = 0 Then r = r * 10 + m Mod 10
m = m \ 10
Wend
Text1.Text = r
End Sub