perfettissimo grazie mille ... il controllo nell'array lo faccio cosi:

Dim trovato As Boolean = False

codice:
For i As Integer = LBound(estensioni_consentite) To UBound(estensioni_consentite)
   If InStr(1, filename, estensioni_consentite(i)) > 0 Then
   trovato = True
   exit for
   End If
Next
Era una fesseria, ma non c'avevo pensato ! grazie ancora !