[VB]Numero parole in un testo+occorrenze

[motogpdesmo16]

Ciao a tutti. avrei bisogno di un algoritmo che determini il numero di parole in un testo scritto dall'utente.
Avevo pensato a un'operazione di estrazione di un carattere per volta, e vedere se questo è uguale ad un simbolo non alfabetico, incrementare un contatore.

Inoltre come posso fare per vedere se una parola è presente in un testo, sempre inserito dall'utente?
Spero di avere un aiuto ulteriore, magari con qualche strategia programmativa migliore visto che sono all'inizio con il visual basic.

grazie a tutti coloro i quali mi aiuteranno!!

[matpez]

Guarda per il primo problema è molto semplice:

  Dim lChar     As Long
  Dim lI        As Long
  Dim lLen      As Long
  
  
  lLen = Len(Text1)
  For lI = 1 To lLen
    If Asc(Mid$(Text1, lI, 1)) < 65 Or Asc(Mid$(Text1, lI, 1)) > 90 And Asc(Mid$(Text1, lI, 1)) < 97 Or Asc(Mid$(Text1, lI, 1)) > 122 Then
      lChar = lChar + 1
    End If
  Next
  
  Call MsgBox("TROVATE " & lChar & " OCCORRENZE!", vbInformation)

Per il secondo invece isiste la funzione InStr, esempio se metti InStr("abc", "c") lui tornerà 3, cioè trova la "c" al 3 carattere, per verificare se c'è un carattere basta che gli fai una cosa del genere:

if InStr("abc", "c")>0 then ...