Hledání buněk podle řetězce – Visual Basic – Fórum – Programujte.com

Nevíte někdo, jak vyhledat buňky obsahující určitý řetězec. Např. ".10."

filename="c:\pokus.xls"
Dim ExcelAp As Object
Set ExcelAp = CreateObject("excel.application")
ExcelAp.Workbooks.Open filename:=filename, UpdateLinks:=0
Dim wSheet As Object
Set wSheet = ExcelAp.Workbooks(1).Worksheets(1)
ls_cell = "A1"
li_pos=instr(ls_cell,"10")
if li_pos>0 then ls_result-mid(ls_cell,li_pos,2)