ESERCIZIO con visual basic 2010

[eziogsv]

...........1) Caratteri maiuscoli : If Password(i) = Password(i).ToUpper....

Mmmmmmmm, ripensandoci non mi piace molto.

Select Case Asc(Password(i))
  Case 65 to 90         '65=ASCII di "A", 90=ASCII di "Z"
    ..... conta quanti sono
  Case Else
   ' ciccia
End Select