Fondamentalmente hai fatto un po' di casino con la chiamata alla funzione

codice:
Private Sub Command1_Click()
stringa = Text1.Text
parola = Text2.Text
risultato =conteggio(stringa, parola)
 Text3.Text = cstr(risultato)


End Sub

Private Sub Command2_Click()
 End
End Sub

Public Function conteggio(stringa$, parola$) As Integer
 dim conto as 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
End Function