Para sacar la posicion donde se encuentra un caracter especifico

'Si el valor de la Celda Cadena = "Like 33" y queremos rescatar el 33

Dim strCadena as String 'creamos una variable para el valor de la celda
Dim strPosicion As String 'creamos una variable para que nos indique la posicion

strCadena = Cadena 'le damos el valor de la celda a la varialble

strPosicion = InStr(strCadena, "Like")
Msgbox "La Posicion en la cadena es: " & strPosicion

'la cadena es =Like 33,  si contamos los caracteres es 1234567
'donde 1234 es la posicion de Like y 67 es la posicion de 33
'luego si queremos sacar solo el 33, entonces ocupamos la derecha

Dim strSacaNumeros as String

strNumeros = Right(strCadena, strPosicion + 5)
Msgbox = "Los numeros que estan en el texto son: " & strNumeros