Çözüldü 2 defa MsgBox Gösteriyor

[Sunaycakirr]

Merhaba
Aşağıda yazdığım formülde ilgili Textbox boş olduğunda MsgBox ile uyarı verdiriyorum ama ilk uyarıya tamam dedikten sonra yine uyarı veriyor. Nerede hata yapıyorum.

Private Sub Kalem1_Miktar_Change()
If TextBox_BirimFiyat = "" Then
On Error GoTo Bitir

Bitir: MsgBox "Lütfen önce KDV Dahil  /  KDV Hariç fiyat belirleyiniz!!", vbCritical
Kalem1_Miktar = ""
Exit Sub
End If

If Kalem1_Miktar = "" Then
Kalem1_Fiyat = ""
Else
Kalem1_Fiyat = Replace(Kalem1_Miktar * TextBox_BirimFiyat, ".", ",")
End If

Kalem1_Fiyat = Format(Kalem1_Fiyat, "0.00")
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Kalem1_Miktar_Change()
If Kalem1_Miktar = "" Then Exit Sub
If TextBox_BirimFiyat = "" Then
On Error GoTo Bitir

Bitir: MsgBox "Lütfen önce KDV Dahil  /  KDV Hariç fiyat belirleyiniz!!", vbCritical
Kalem1_Miktar = ""
Exit Sub
End If

If Kalem1_Miktar = "" Then
Kalem1_Fiyat = ""
Else
Kalem1_Fiyat = Replace(Kalem1_Miktar * TextBox_BirimFiyat, ".", ",")
End If

Kalem1_Fiyat = Format(Kalem1_Fiyat, "0.00")
End Sub

 

[Sunaycakirr]

Sayın Korhan Ayhan

Eline sağlık çok teşekkürler.