Dim xlObj, xlWbk
Set xlObj = CreateObject("Excel.application")
Set xlWbk = xlObj.Workbooks.Open("C:\test.xls")
For i = 1 to 10 'only checking 10 cells in the first column
'where you see the i you can enter your special characters
If xlObj.ActiveWorkbook.Sheets(1).Range("A" & i & "").Value = "i" Then
Msgbox "I found one!"
End If
Next
xlObj.ActiveWindow.Close
xlObj.Quit