Can I return focus to a Textbox when Validation fails as part of a Sub?

As part of a UserForm I am Validating and Formatting in one pass. The problem I'm having is that when the Validation fails, I get the error message, and the focus moves on to the next text box.

I want to trap the user in a loop until they have acceptable data

Private Function CheckNum2(CurValue As String)
    
    On Error Resume Next
    Select Case True
        Case IsNumeric(CurValue)
            CheckNum2 = Format$(CurValue, "#,###.##")
        Case CurValue < 1
            MsgBox ("You must set a value of 1 or greater")
        Case Else
            MsgBox ("You must set a value of 1 or greater")

    End Select

End Function
Private Sub APV_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    With APV
        .Text = CheckNum2(.Text)
    End With
    
End Sub

Hello D3Pratt,

You need to set Cancel = True in APV_Exit if the validation fails.

I think might be better to ask if it's possible to actually do the the validation as part of the formatting function.

Because of the 16 entries I was thinking I wanted to have it all contained as a subroutine during Exit, but I'm not sure if I CAN do that.

Hello D3Pratt,

You can reuse a validation routine in the Exit event. You need to create a function that will return a Boolean value as a result of the validation. This can be applied to the Cancel variable in the Exit event. Copy this code into a standard VBA module.

Function ValidateTextBox(ByRef TB As MSForms.TextBox) As Boolean

     If Trim(TB.Value) = "" Then Exit Function
     
     If Not IsNumeric(TB) Then
        MsgBox "Please enter only Numeric values."
        ValidateTextBox = True
        TB.SelStart = 0
        TB.SelLength = Len(TB.Value)
     End If
         
End Function

The macro will validate that the entry is numeric. Spaces and empty entries are ignored. Now you can use this same line of code below (in blue) in every TextBox_Exit event.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Cancel = ValidateTextBox(ActiveControl)
End Sub