VBA for Excel -- Divide by Zero Error in Calculation

I have a form that calls a routine of calculations to be executed whenever the text in any input textbox is changed.

One of the calculations involves dividing, say, txtBox1 by txtBox2, with the answer going into a third box.

I rigged by using an IF statement to bypass the computation until there is something in txtBox2, but I know that there is some sort of IFERROR statement that would be better. Any ideas?

Thanks,
Jimbo.

Can you post your code so we can help better.

Are you looking for something like this:

IF ISERROR(txt1.value/txt2.value) then
msgbox ("AHHHHHH"
Else
txt3.value txt1.value/txt2.value
End if

Or do you want something that will post a zero (or even a null value to txt3 when you get a division by zero.

IF ISERROR(txt1.value/txt2.value) then
txt.value = null
Else
txt3.value txt1.value/txt2.value
End if

I would usually still code this using if statements. Anyone have any other suggestions? You can use the IIF statement for a one liner I guess.

VB Code:

If IsError(Text1.Text / Text2.Text) = True Then
        MsgBox "Error"
    End If

Is not the correct way of using the function. it
will generate a Runtime error 424. The function is suppossed to be used like...

If IsError(expression) Then...

The required expression argument must be a Variant of VarType vbError.

:)

Why not just check for the text2.text being one character and it
being a zero. if it is a negative number that would be ok.

VB Code:

Private Sub Command1_Click()
    If len(text2.text)=1 and instr(1,text2.text,"0")=1 Then
        MsgBox "Divide by zero error"
        text2.text = ""
    Else
        text3.text = Text1.Text / Text2.Text
    End If
End Sub