由于时间输入格式不正确，导致Runtime 13错误

Question

我有使用特定时间格式将输入的时间值移动到字段的代码。但是，在输入时间时，如果未以正确的格式输入时间，则用户会收到Runtime 13错误，然后只能执行以下操作：关闭用户窗体，停止运行代码，然后重试。我可以格式化消息以返回错误，告诉用户更正条目，但是我使用什么代码将用户重新输入字段并允许他们进行更正？我在这里放置此用户窗体文本框的代码以供参考：

Private Sub txtDepartTime_AfterUpdate()
'When time is entered, time transfers immediately to spreadsheet datafield.

Dim TargetRow As Integer
TargetRow = Sheets("Codes").Range("D43").Value + 1

With Sheets("Travel Expense Voucher").Range("Data_Start").Offset(TargetRow, 25)
 .Value = TimeValue(txtDepartTime)
 .NumberFormat = "hh:mm" 'departure time

 End With

End Sub