VBA for Excel -- Divide by Zero Error in Calculation

[PineyWoodsJimbo]

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.

[RobDog888]

Can you post your code so we can help better.

[TheFIDDLER]

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.

[RobDog888]

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.

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