Como hago para obtener todas las posiciones de un caracter que se encuentra en una cadena. Use la función InStr() ... pero esta solo devuelve la primera posición. Hay alguna forma de aplicarla para que me devuelva todas las posiciones?
O que otra función o método puedo usar? Ya probé diferentes formas, pero nada me da resultado :S
Les muestro lo que estoy haciendo:

Código:

Private Sub BotonAceptar_Click(...)
        Dim cad As String, car As String, pos As Integer, i As Integer = 0
        cad = ingf.Text 'en esta textbox ingreso la cadena
        car = caracter.Text én esta ingreso el caracter que quiero encontar
        For i = 1 To Len(ingf.Text) Step 1
            pos = InStr(cad, car)
        Next
        cantidad.Text = " Pos " & pos & " - " 'y en esta textbox muestro las posiciones
    End Sub

Desde ya gracias!

Se me ocurre que podes ir modificando la cadena Cad despues de evaluar la primera posicion.
Por ejemplo

Código:

For i = 1 to Len(Cad)
    Pos= InStr(Cad, car)
    Cad= Mid(Cad, Pos+1)
    Cant= Cant & ", " & Pos
Next

Cantidad.Text=Cant

Saludos,