una subcadena dentro de una cadena

[minette1988]

Hola, tengo que hacer un script en visual basic que me cuente cuantas veces aparece una subcadena dentro de una cadena. No me aclaro Ej: estrella La letra e aparece dos veces
Debo introducir la cadena de teclado usando InputBox.

[Psyke1]

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click ()
   Dim Veces As Integer
   Dim Busco As String, miCadena As String
   miCadena = "estrella"
   Busco = "e"
   Veces = InStr(Cadena, Busco)
   Msgbox "La letra " & Busco & " se repite en la cadena " & miCadena & " : " & Veces & " veces"
End Sub

Creo que eso lo que buscas...
No obstante te recomiendo echar un vistazo a esto : http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm#instr

Salu2!

[Dessa]

Creo que lo que pregunta minette no es la posicion de la primera vez que aparece la subcadena sino la cantidad de veces que esta se repite dentro de la cadena.

Código [Seleccionar] Expandir



Option Explicit

Function Contar(cadena As String, subcadena As String) As Long
  Dim s() As String: s = Split(cadena, subcadena): Contar = UBound(s)
End Function

Private Sub Form_Load()
  MsgBox Contar("estrella", "e")
End Sub