salve

codice:
Private Sub Command1_Click()
stringa = Text1.Text
parola = Text2.Text
conteggio(stringa, parola) = conto
End Sub

Private Sub Command2_Click()
 End
End Sub

Public Function conteggio(stringa$, parola$) As Integer
 lunghezza = Len(stringa)
 For i = 1 To lunghezza
  If Mid(stringa, i, 1) = parola Then
   conto = conto + 1
  Else
   conto = conto
  End If
 Next i
 conteggio = conto
 Text3.Text = conto
End Function
mi genera un errore e mi dice che devo impostare conteggio uguale a qualcosa(questo nella routine command) se lo faccio mi dice che aspettava uno oggetto...se notate nella funzione conteggio il manuale mi dice di porlo uguale al risultato cioè conto....
non nè spiega il motivo

ciao e grazie