sapere se le lettere che compongono una stringa....

[longline]

Devi fare una funzione che conta il numero delle lettere utilizzate in una parola. Le lettere vengono accodate in una stringa, solo se non sono già nella stringa stessa. Poi alla fine conti quante lettere hai accodato.

Function NumeroLettere(ByVal strParola)
  Dim lngContatore
  Dim strLettereTrovate
  Dim strLetteraEsaminata
  strLettereTrovate = ""
  For lngContatore = 1 To Len(strParola)
    strLetteraEsaminata = Mid(strParola, lngContatore, 1)
    If InStr(strLettereTrovate, strLetteraEsaminata) = 0 Then
      strLettereTrovate = strLettereTrovate & strLetteraEsaminata
    End If
  Next
  NumeroLettere = Len(strLettereTrovate)
End Function

Poi ti fai una funzione per ottimizzare il controllo.

Function ControllaLettere(ByVal strStringa, ByVal lngNumeroLettereMin)
  If NumeroLettere(strStringa) > lngNumeroLettereMin Then
    ControllaLettere = True
  Else
    ControllaLettere = False
  End If
End Function