Soru textbox boş ise hesaplama

[sirkülasyon]

Private Sub TextBox2_Change()
Me.TextBox3.Text = Format(WorksheetFunction.Round(Me.TextBox1.Text * Me.TextBox2.Text, 2), "#,##.00")
End Sub

Textbox2' ye rakam girilir ise yukarıda ki işlem doğru çalışıyor.
Ancak Textbox2 ' ye rakam girilmedi ta da rakam girildi lakin geri silindi ise textbox3' ü boş geçsin ve hata da vermesin
Nasıl yapabilirim

 

[Haluk]

Private Sub TextBox2_Change()
    If Val(TextBox1) * Val(TextBox2) > 0 Then
        TextBox3 = Format(Round(TextBox1 * TextBox2, 2), "#,##.00")
    Else
        TextBox3 = ""
    End If
End Sub

.

 

[sirkülasyon]

Reis
Allah razı olsun. Teşekkür ederim