请问如何在循环的表单验证中返回表单

[babyjavalover]

我写了这样的一段程序，是错的我试了和我的预料一样，我是想叫用户输入直到输入合法为止，否则弹出对话框提示错误，在回到表单让用户输入，关键是怎样在这个循环返回到表单在用户重新输入后，接着进入下一轮循环判定，成功推出，否则重复，请教各位帮忙，谢谢
Do While ps = True
Dim arr1() As String
Dim arr2() As String
arr1 = Split(TextBox1.Text, " ")
arr2 = Split(TextBox2.Text, " ")
If UBound(arr1) < UBound(arr2) Then
ps = False
Else
Msg "you have input a wrong number"
End If
Loop