Help with Prevention of Dividing by Zero

[3no7ch]

I need a bit of help in preventing division by zero in my calculator.
Here's the code I currently have:

Private Sub Form_Load()
    'To stop yourself from dividing by zero.
    If Val(Text1.Text) And Val(Text2.Text) = 0 Then
    cmdDivide.Enabled = False
    If Val(Text1.Text) And Val(Text2.Text) <> 0 Then
    cmdDivide.Enabled = True
    End If
End Sub

I'm just not sure in how to combine the values of Text1 and Text2 together.

[Nightwalker83]

Try using the "or" condition.

Private Sub Form_Load()
    'To stop yourself from dividing by zero.
    If Val(Text1.Text) And Val(Text2.Text) = 0 or  If Val(Text1.Text) And Val(Text2.Text) <> 0 Then
    cmdDivide.Enabled = False
    else
    cmdDivide.Enabled = True
    End If
End Sub

I haven't tested the code but it should work.

[Code Doc]

Private Sub Form_Load()
'To stop yourself from dividing by zero.
If Val(Text1.Text) Then cmdDivide.Enabled = True Else cmdDivide.Enabled = False
End Sub

[LaVolpe]

Code Doc, I think it should be Text2, not Text1. From 1st post, it appears Text2 will be the divisor

[Code Doc]

Code Doc, I think it should be Text2, not Text1. From 1st post, it appears Text2 will be the divisor

+1, Fox. You only have to check for the denominator (or divisor). Looks like Text2.Text contains the divisor. OP should advise. If so,

Private Sub Form_Load()
'To stop yourself from dividing by zero.
If Val(Text2.Text) Then cmdDivide.Enabled = True Else cmdDivide.Enabled = False
End Sub

[3no7ch]

Thank you Nightwalker83! It works now.