Присвоение введённого значения в TextBox - VB

Формулировка задачи:

Доброго времени суток всем. Проблема в следующем: при стирании в TextBox всего прога виснет, в чём причина. Всем откликнувшимся спасибо. Сам код:

Option Explicit
Dim b As Double
Dim h As Double
 
Private Sub Text1_Change()
                Do
                    b = Val(Text1.Text)
                Loop Until Val(Text1.Text) > 0 Or Text1.Text <> ""
Label1.Caption = b
On Error Resume Next
h = 200 / b
Label2.Caption = h
End Sub

На форме 1 TextBox.

Решение задачи: «Присвоение введённого значения в TextBox»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim b As Double
Dim h As Double
 
Private Sub Text1_Change()
b = Val(Text1.Text)
If b <= 0 Then
  Label1.Caption = "Введите положительное число"
  Label2.Caption = ""
Else
  Label1.Caption = b
  h = 200 / b
  Label2.Caption = h
End If
End Sub
                        