مربع نص لتغيير حجم خط أداة العنوان

السلام عليكم

ياأخوان

وضعت مربع نص وأداة عنوان

والهدف وضع رقم داخل مربع النص ليتغير حجم خط أداة العنوان تلقائياً

لكن واجهتني مشكلة وهي عند تفريغ مربع النص من البيانات سواءاً عند ضغط BackSpace أو Delete تظهر سالة خطأ

وإليكم الكود الذي عملت عليه

Private Sub Text1_Change()

Label1.FontSize = Text1.Text

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyBack Then

If Text1.Text = "" Then

Text1.Text = 1

End If

End If

End Sub

أرجو إيجاد الحل