Vero , hai perfettamente ragione , e' solo che continuo a picchiar la testa e non capire dove sbagliavo.
Ho risolto comunque con il codice di gantonio appropriamente modificato , di seguito lo enuncio :
Sub ContaF()
Dim i As Long
Dim c As Long
c = 0
For i = 1 To Len(TextBox11.Text)
If Mid$(TextBox11.Text, i, 1) = "F" Then c = c + 1
Next i
TextBox12.Text = CStr(c) & " F"
End Sub
|