Change the line
If Len(x(i)) = 3 Then
to
If Len(x(i)) = 3 And IsNumeric(x(i)) Then