Private Sub Text1_Change()
If IsNumeric(Text1) Then If Val(Text1) >= 0 Then Shape1.Height = Val(Text1)
End Su