HOLA!!!
Hola, solo voy a repetir, AAaron... Hace uso de funciones de VB6.
No existe FindStr, En vb6 es InStr para corregir tu codigo a vb6 hay que cambiar estas lineas:
iStart = FindStr(TextBox1, sFind, 0, vbStrCompare)
iEnd = FindStr(TextBox1, sFind, iStart+1, vbStrCompare)
Por estas:
iStart = InStr(0,TextBox1, sFind)
iEnd = InStr( iStart+1, TextBox1, sFind)
GRACIAS POR LEER!!!