I am trying to test for letters or numbers within a cell.
I cannot get the Iserror to work correctly, nonerror is ok, but if it is an
error, i cannot get True, i get a VBA error.

Can someone please help?

a1$ = Mid(Range("a1").Text, 2, 1)
b1$ = Mid(Range("b1").Text, 3, 1)
If IsError(a1 * b1) Then
MsgBox "error"
Else: MsgBox "nonerror"
End If