Textboxa geri dönme

[hsayar]

Private Sub Txt_Adt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Txt_Adt.Value <> "" And IsNumeric(Txt_Adt.Value) Then
        If Txt_Bf.Value <> "" And IsNumeric(Txt_Bf.Value) Then
            Txt_Tut.Value = Format(Txt_Adt.Value * Txt_Bf.Value, "#.#0")
        End If
    Else
        MsgBox "Girdi&#287;iniz De&#287;er Say&#305; De&#287;il!", vbCritical, "HATA"
        [color="red"]Txt_Adt.Value = 0[/color]
        Exit Sub
    End If
End Sub

kırmızı satırı mecburen sıfıra eşitledim ancak asıl istediğim hatayı verdikten sonra o textboxa geri dönmesi ve istediğini almadan çıkmaması.
yardımlarınız için şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki örnek kodu kullanabilirsiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1 = "" Then
    Cancel = True
    Else
    Cancel = False
    End If
End Sub

 

[hsayar]

Private Sub Txt_Adt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Txt_Adt.Value <> "" And IsNumeric(Txt_Adt.Value) Then
        If Txt_Bf.Value <> "" And IsNumeric(Txt_Bf.Value) Then
            Txt_Tut.Value = Format(Txt_Adt.Value * Txt_Bf.Value, "#.#0")
        End If
    Else
        MsgBox "Girdiğiniz Değer Sayı Değil!", vbCritical, "HATA"
        [color="green"]Cancel = True[/color]
        Exit Sub
    End If
End Sub

Teşekkür ederim hocam şimdi istediğim gibi oldu