MsgBox en VB6

Private Sub CdCreer_Click()

Dim CpteMses, CpteMP, CptePdtsenC, CptePdtsInt, CptePdtsFinis As String

CpteMses = "311"
CpteMP = "312"
CptePdtsenC = "313"
CptePdtsInt = "314"


If Left(TCode, 3) = CpteMses Then
GoTo OkArt1:
Exit Sub
Else
GoTo Pass1:
Exit Sub
Exit Sub
End If

Pass1:


If Left(TCode, 3) = CpteMP Then
GoTo OkArt2:
Exit Sub
Else
GoTo Pass2:
Exit Sub
Exit Sub
End If

Pass2:


If Left(TCode, 3) = CptePdtsenC Then
GoTo OkArt3:
Exit Sub
Else
GoTo Pass3:
Exit Sub
Exit Sub
End If

Pass3:


If Left(TCode, 3) = CptePdtsInt Then
GoTo OkArt4:
Exit Sub
Else
GoTo Pass4:
Exit Sub
Exit Sub
End If

Pass4:

MsgBox "Désolé, erreur de code", vbCritical + vbInformation, "Info !"
TCode.SetFocus
Exit Sub


OkArt1:
OkArt2:
OkArt3:
OkArt4:

end sub