IsNumeric+Empty in if, then Anweisung?

Private Sub cmd_AD_Click()
If IsNumeric(tb_ea1__tb_AD) _
And IsNumeric(tb_A1__tb_AD) _
And IsNumeric(tb_R1__tb_AD) _
And tb_ea1__tb_AD.Value = Empty _
Or tb_A1__tb_AD.Value = Empty _
Or tb_R1__tb_AD.Value = Empty Then
MsgBox ("Bitte geben Sie Werte ein usw.")
Else
If IsNumeric(tb_ea1__tb_AD) _
And IsNumeric(tb_A1__tb_AD) _
And IsNumeric(tb_R1__tb_AD) Then
A1_ADurch = tb_A1__tb_AD.Value
R1_ADurch = tb_R1__tb_AD.Value
amortisationsdauer = (A1_ADurch - R1_ADurch) / ea1_ADurch
'Text_Amortisationsdauer.Caption = amortisationsdauer
Text_Amortisationsdauer.Caption = amortisationsdauer
cmd_AD.Visible = False
FR_AmortisationsdauerOK.Visible = True
Else
MsgBox ("Bitte geben Sie Werte ein usw.")
End If
End If
End Sub

Ein weiteres Problem:
Wie löst man am Besten den Umgang mit nicht auflösbaren Rechnungen, d.h. Division durch 0.
Bsp. ea1_ADurch = 0, ist zwar ein Wert, kann aber nicht Ausdruck durch 0 teilen.
?
Für Rückmeldungen wäre ich dankbar.
LG