Validation won't work in this case. So, Ok -Here's the code. I thought of streamlining it in the string section, but I thought the newline trick might be of use to others out there.
Private Sub Part1_BeforeUpdate(Cancel As Integer)
Dim Answer As Variant
Dim bit As Variant
Dim NewLine As String...