Use IsNumeric...

put your if statement inside another if statement

If IsNumeric(txtHoursWorked.text) and IsNumeric(txtOvertime.text) Then
<Previous If Statement>
Else
Msgbox("Please Enter a Numeric Value")
End If