Excel - ayuda!! función mid en vb

deseo buscar en una columna aquellos campos en los cuales la cuarta letra sea una letra deseada, tengo una leve idea usando la función mid en vb, pero agradeceria mas ayuda. gracias

=mid(A1,4,1)
=IF(mid(A1,4,1)="X","Encontre letra","No encontre")

Esta es la sentecia que debes utilizar:

Workbooks("Prueba").Worksheets(Hoja1.Name).Cells(5, 1)=Mid(Workbooks("Prueba").Worksheets(Hoja1.Name).Cells(4, 8), 4, 1)

Para que te funcione guarda el libro con el nombre Prueba, ingresa un cadena de texto en la 4 fila y 8 columna. el resultado te lo pondra una fila mas abajo, espero te sea util

Saludos
Marco