[Marco Giunio Silano]

Originariamente inviato da Della17

Private/Public Function A (ByVal/ByRef a As ... , ByVal/ByRef b As Byte) As Integer

Select Case a 
         Case 0
           'Niente
         Case 1
           'Niente
         Case 2
           'Niente
         Case 3
           'Niente
         Case 4
           'Niente
         Case 5
           Break

         Case Else
              If b <> 0 Then
                 A = -1
              End If
End Select

A = 0

End Function

Ho tradotto alla lettera più o meno ci dovremmo essere!

Scusa, ho editato dopo, a me serve che nel caso la variabile a valga 0 o 1 o 2 o 3 o 4 o 5 esegua del codice, in tutti gli altri casi dell'altro codice.
Potrei provare debaggando vb, ma non un compilatore sotto le mani e devo dare il codice senza farlo girare (pensa che culo), quindi mi chiedo: se a=0, esegue il codice di a=5?
Grazie.