If TextBox6 <= 5 And (CDbl(TextBox12.Value) < 35.3 Or CDbl(TextBox12.Value) > 82.4) Then
MsgBox " The value in should be between 35.3 Lb and 82.4 Lb"
'ElseIf TextBox6 > 5 And TextBox6 <= 8 And (CDbl(TextBox12.Value) < 34.1 Or CDbl(TextBox12.Value) > 79.5) Then
'MsgBox " The value should be between 34.1 Lb and 79.5 Lb"
'ElseIf TextBox6 > 8 And (CDbl(TextBox12.Value) < 33 Or CDbl(TextBox12.Value) > 76.9) Then
'MsgBox " The value should be between 33 Lb and 76.9 Lb"[/COLOR]
TextBox12 = ""
TextBox5 = ""
Cancel = True
Exit Sub
End If