[VB] Gestire più istruzioni IF

[renygade]

Ciao a tutti, eccomi di nuovo qui con una semplice domanda ma che non riesco a trovare soluzione.

Come posso gestire questo tipo di condizione IF senza dover ripetere ogni volta il codice?

If TextBox1.Text = "00000000" Then MsgBox("Valore non valido", vbCritical, "Errore")
If TextBox1.Text = "11111111" Then MsgBox("Valore non valido", vbCritical, "Errore")
If TextBox1.Text = "22222222" Then MsgBox("Valore non valido", vbCritical, "Errore")
If TextBox1.Text = "33333333" Then MsgBox("Valore non valido", vbCritical, "Errore")
....etc

Possibile che per ogni valore debba riscrivere la stringa?

Non esiste un qualcosa del tipo:

If TextBox1.Text = "00000000" oppure "11111111" oppure "22222222" oppure "33333333" Then MsgBox("Valore non valido", vbCritical, "Errore")

A buon rendere...

Ciao
Guardati il blocco Select Case.
Il tuo codice diventa:

Select case TextBox1.Text
    case "00000000":
          MsgBox("Valore non valido", vbCritical, "Errore")
    case "11111111":
           MsgBox("Valore non valido", vbCritical, "Errore")
End Select

Detto ciò.. ragiona sul perché devi dare errore se si inserisce 11111111 o 0000000. Qual'è il problema? Non possono essere tutti numeri uguali?