Help with IF statement

[zach campbell]

I have two problems here that should be easy but I'm stumped.

1.) I need a If statement that says IF label3(SP + 3) = 2.2 and Label3(SP+!) ="####82-#" then it should pop up a passed on a box. If those both are not true then it should popup a box saying INCORRECT. VB6 does not like my + .. any ideas?

2.) Also on the Label3(SP+1).Caption = "####82-#" the # means random numbers that can change, but the 82 won't. That is what I want the If statement to check to see if that 82 is in the 5th and 6th spot while ignoring the others where the # and - are. Any ideas?

Thank you!!!!

  If Label3(SP + 3).Caption = "2.2" + Label3(SP + 1).Caption = "####82-#" Then
    MsgBox ("Diameter and Carbon Passed!")
    Else
    MsgBox ("STOP! INCORRECT CARBON AND DIAMETER MATCH! CONTACT SUPERVISOR NOW!")
    End If

[MartinLiss]

If Label3(SP + 3).Caption = "2.2" And Label3(SP + 1).Caption = "####82-#" Then

[MartinLiss]

If Label3(SP + 3).Caption = "2.2" And Mid$(Label3(SP + 1).Caption,5 2) = "82" Then

[zach campbell]

Thank you for the quick response. It worked greatly. If I wanted to add another If in there, like

  If Label3(SP + 3).Caption = "2.16" And Mid$(Label3(SP + 1).Caption, 5, 2) = "72" Then
    MsgBox ("Diameter and Carbon Passed!")
    Else
    MsgBox ("STOP! INCORRECT CARBON AND DIAMETER MATCH! CONTACT SUPERVISOR NOW!")
    End
    End If

Where it also looks for 2.16 and ="72", on top of the 2.20 and = "82", how would you code that?


Would it look something like

  If Label3(SP + 3).Caption = "2.20" And Mid$(Label3(SP + 1).Caption, 5, 2) = "82" OR If Label3(SP + 3).Caption = "2.16" And Mid$(Label3(SP + 1).Caption, 5, 2) = "72" Then
    MsgBox ("Diameter and Carbon Passed!")
    Else
    MsgBox ("STOP! INCORRECT CARBON AND DIAMETER MATCH! CONTACT SUPERVISOR NOW!")
    End
    End If

?

[LaVolpe]

If Label3(SP + 3).Caption = "2.2" And Mid$(Label3(SP + 1).Caption,5 2) = "82" Then

If the length & format of (SP+1) can vary, then maybe this:

If Label3(SP + 3).Caption = "2.2" And InStr(Label3(SP + 1).Caption, "82-") Then

[Spoo]

Zach

It probably should look like this -- ie, use parentheses, and eliminate
the 2nd 'If'

If (Label3(SP + 3).Caption = "2.20" And Mid$(Label3(SP + 1).Caption, 5, 2) = "82") _ 
Or (Label3(SP + 3).Caption = "2.16" And Mid$(Label3(SP + 1).Caption, 5, 2) = "72") Then
    MsgBox ("Diameter and Carbon Passed!")
Else
    MsgBox ("STOP! INCORRECT CARBON AND DIAMETER MATCH! CONTACT SUPERVISOR NOW!")
    End
End If

Spoo

[MartinLiss]

BTW you should not use 'End'. Use Unload Me instead.