una subcadena dentro de una cadena

[pkj]

Todo depende de los comandos que si que hayas estudiado.

Esto sería el script, suponiendo que hayas estudiado InputBox, MsgBox, For Next, If Then, Mid y Len.

Código vb:

' Forzamos la declaracion de variables
Option Explicit
 
' Declaramos las variables que vamos a necesitar
Dim F
Dim Texto
Dim Buscar
Dim CuantasVeces
 
' Pedimos los textos para trabajar:
Buscar=InputBox("Texto a buscar")
Texto=InputBox ("Texto donde buscar")
 
' Y si el texto a buscar es menor o igual que el texto principal se buscan las coincidencias
If Len(Texto)>=Len(Buscar) Then
 
  ' creamos un bucle desde 1 hasta la longitud del texto menos la longitud del texto a buscar menos 1.
  'De este modo no se intenta buscar el texto a partir de la posicion en que ya no se puede extraer 
  'un trozo del tamaño necesario.
  For F = 1 To Len(Texto) - (Len(Buscar) - 1)
 
    ' y vamos comparando bloques de texto de la misma longitud del texto a buscar 
    If Mid(Texto, F, Len(Buscar)) = Buscar Then CuantasVeces = CuantasVeces + 1
 
  Next
 
  ' Y después mostramos el resultado
  MsgBox "El texto está " & CuantasVeces & " veces"
 
End If
 

Saludos