Validate userform textbox

[Bernieg]

I have a userform called data_capture_sheet with textbox6
I want to validate as i woul with a normal work sheet
But alas i cant get it to work

Bernie


Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox6
Selection.Validation
.Delete
.Add Type:=xlValidateTime, AlertStyle:=xlValidAlertStop, operator:= _
xlBetween, Formula1:="00:01", Formula2:="23:59"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "INPUT TIME STARTED OR FINISHED"
.ErrorTitle = "TIME FORMAT i.e. 15:25 (COLON : SEPARATORE)"
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub