[VBA] Πρόβλημα με error σε κώδικα

[kolekas]

Καλησπέρα σε όλη την παρέα και πάλι
έχω το έξεις πρόβλημα.
γράφοντας σε ένα useform και την πράξη στον πιο κάτω κωδικά.
γράφω στο txtRegularHours και αν κάνω λάθος και σβήσω τα νούμερα τότε βγάζει αυτό το error
run-time error 13: type mismatch
το πρόβλημα το κάνει εκεί που έχω κάνει κόκκινα τα γραμμα .
τι μπορώ να κάνω?
ευχαριστώ!

Private Sub txtRegularHours_Change()
If txtRegularHours = "" Or txtRegularHours = "." Then
If txtOTHours = "" Or txtOTHours = "." Then
txtTotalPay = ""
Exit Sub
End If
End If

If txtRegularHours = "" Or txtRegularHours = "." Then
Me.txtTotalPay = (1 * Me.txtOTHours)
Exit Sub
End If

If txtOTHours = "" Then
Me.txtTotalPay = (1 * Me.txtRegularHours)
Else

Me.txtTotalPay = (1 * Me.txtRegularHours) + (Me.txtOTHours * 1)

End If