caratteri in stringa (vb)

[xegallo]

Public Function QuanteVolte(sDoveCercare As String, sCosaCercare As String) As Integer
Dim i As Integer
Dim iMax As Integer
Dim booFiniti As Boolean
   Do Until booFiniti = True
      i = i + 1
      If i > Len(sDoveCercare) Then
         booFiniti = True
         Exit Do
      End If
      i = InStr(i, sDoveCercare, sCosaCercare)
      If i > 0 Then
         iMax = iMax + 1
      Else
         booFiniti = True
         Exit Do
      End If
   Loop
   QuanteVolte = iMax
End Function