[RESOLVED] Can't divide by 0

[Grant1377]

I have a program where it divides two numbers from text boxes. Whenever I have both the numbers at 0 I get "Run time 6 Overflow". Thats aboviously because you can't divide by 0. However I'm trying to make it so when you try to divide by 0 then nothing happens instead of just closing the program. I've tried
If text1.text = 0 and text2.text = 0 then text3.text = 0 else: text3.text = val(text1.text) / val(text2.text)

But I still come up with the error, and when I try to debug it highlights the else statement. Any know what to do?

[bushmobile]

try just:

If Val(Text2.Text) = 0 Then Text3.Text = "0" Else Text3.Text = Val(Text1.Text) / Val(Text2.Text)

[RhinoBull]

The simplest thing you can do is something like the following sample:

Private Sub Command1_Click()
    If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
        If Val(Text2.Text) > 0 Then
            Text3.Text = Val(Text1.Text) / Val(Text2.Text)
        End If
    End If
End Sub

[Grant1377]

Alright thanks both of those worked.

[Hack]

You could also trap the error, display a message to your user indicating what happened and why, then have your program move on.

Error trapping is something your should have in your code anyway.