Flow control does not stop after clicking OK in message box

[Lowrider]

I'm new to the VB programming world and am having a problem with flow control. In the code below I check 3 textboxes and display a messagebox if one or more are left blank. The problem lies in that I don't know how to stop the program flow after the user clicks the OK button on the message box. The program continues to run. I know that I am missing some piece of code to halt the flow. Thank you for any help with this problem. My email is <Removed by Moderator>

Dim test1 As Decimal  
        Dim test2 As Decimal
        Dim test3 As Decimal
        test1 = xtboxNum1.Text.Length
        test2 = xtboxNum2.Text.Length
        test3 = xtboxNum3.Text.Length
        If test1.Equals(0) Or test2.Equals(0) Or test3.Equals(0) Then
                MessageBox.Show("One or more numbers are not filled in!") 
        End If
End Sub

[Dököll]

I'm new to the VB programming world and am having a problem with flow control. In the code below I check 3 textboxes and display a messagebox if one or more are left blank. The problem lies in that I don't know how to stop the program flow after the user clicks the OK button on the message box. The program continues to run. I know that I am missing some piece of code to halt the flow. Thank you for any help with this problem. My email is <Removed by Moderator>

Dim test1 As Decimal  
        Dim test2 As Decimal
        Dim test3 As Decimal
        test1 = xtboxNum1.Text.Length
        test2 = xtboxNum2.Text.Length
        test3 = xtboxNum3.Text.Length
        If test1.Equals(0) Or test2.Equals(0) Or test3.Equals(0) Then
                MessageBox.Show("One or more numbers are not filled in!") 
        End If
End Sub

Hello Lowrider!

Is this all of the code? It sounds like you should be able to stop the program once you click okay button. Does the program get fired with click of a button?

Unload Me
YourForm.Show
 

should bring you back to the button, if that's the case.

In a bit!

Dököll

[Lowrider]

Hello Lowrider!

Is this all of the code? It sounds like you should be able to stop the program once you click okay button. Does the program get fired with click of a button?

Unload Me
YourForm.Show
 

should bring you back to the button, if that's the case.
In a bit!
Dököll

Dököll, all the code is listed below. Yes a button click starts Private Sub xbutGetMax which calls Private Sub TestForNumbers(). I am trying to test each textbox for content and if an empty textbox is found the message box is displayed. At this point the user clicks OK and I want the program to stop, halt, pause, etc. while the user inputs the number in the empty textbox. The user then clicks the button Private Sub xbutGetMax again and the and the procedure begins again. Does this make sense? Can you help?

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
 
       Private Sub TestForNumbers()
        Dim test1 As Integer                 
        Dim test2 As Integer
        Dim test3 As Integer
        test1 = xtboxNum1.Text.Length       
        test2 = xtboxNum2.Text.Length
        test3 = xtboxNum3.Text.Length
        If test1.Equals(0) Or test2.Equals(0) Or test3.Equals(0) Then
            MessageBox.Show("One or more numbers are not filled in!")
            Me.Show()
        End If
    End Sub
 
    Private Function GetMax(ByVal num1 As String, ByVal num2 As String, ByVal num3 As String) As String
 
        Decimal.TryParse(Me.xtboxNum1.Text, num1)
        Decimal.TryParse(Me.xtboxNum2.Text, num2)
        Decimal.TryParse(Me.xtboxNum3.Text, num3)
        Dim arrayNumbers() As Decimal = {num1, num2, num3}
        Dim max As Decimal = arrayNumbers(0)
        For number As Integer = 1 To arrayNumbers.Length - 1  
            If arrayNumbers(number) > max Then
                max = arrayNumbers(number)
            End If
        Next number
        Return max                                             
    End Function
 
    Private Sub xbutGetMax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xbutGetMax.Click
 
        Call TestForNumbers()                              
        Dim max1 As Decimal                                
        Dim num1 As String = Me.xtboxNum1.Text
        Dim num2 As String = Me.xtboxNum2.Text
        Dim num3 As String = Me.xtboxNum3.Text
        max1 = GetMax(CDec(num1), CDec(num2), CDec num3))                       
        Me.xlabMax.Text = "The largest number is " & max1 & "" 
 
    End Sub 

[Killer42]

I'd suggest you change TestForNumbers from a Sub to a Function. Have it return True for OK, and False for not OK. Then your code can say something like...

If TestForNumbers() Then
  ' Do the GetMax stuff.
End If