Может я что-то не правильно понял?  
Debug.Print IsNumeric(Cells(1, 1).Value)

Не за что  
Также:  
Debug.Print IIf(Application.IsText(Cells(1, 1).Value), "Text", "Numeric")

Ну мне для решения конкретной задачи больше всего походит первый вариант в виде:  
If IsNumeric(Arr(i)) Then a = a + Arr(i)

Здравствуйте все. В дополнение, и это тоже:  
Debug.Print Application.IsText("1d3"), Application.IsText("1e2")  
:-)

Так я думаю вряд ли кто-то будет использовать  
с перемененными и константами всё Ок  
 
Const x As Long = "111": Const z As String = "abc"  
Debug.Print Application.IsText(x), Application.IsText(z)  
 
False True

Серёж, а в чём разница то?  
 
Const x As Long = "111"  
Const x As Long = 111

{quote}{login=ZVI}{date=09.07.2012 09:56}{thema=}{post}Добрый вечер, Михаил!  
На всякий случай для коллекции, это тоже будет = True:  
Debug.Print IsNumeric("1d3"), IsNumeric("1e2"){/post}{/quote}  
А почему к "d" и "e" такое "избранное" отношение?  
Проверил другие буквы - везде False

Богдан, а тогда зачем объявлять заведомо неверно? Об этом Серж и говорит... Если "111", ту нужно и писать: As String. Если хотим числовую переменную - кавычки не нужны. Вот о чём разговор.

Я попробовал так: хоть 234е765б + 1 хоть 123d765 + 1 =11 (+25 = 35)  
и вообще, т.е если внутри цифр, сколько бы из не было, стоит одна е или d, то как число это равно 10. но цифры должны быть с обеих сторон.

Если данные будут считываться только из ячеек рабочего_листа:  
 
Function ValueIsNumber(X) As Boolean  
   Select Case VarType(X)  
   Case vbDouble, vbDate, vbBoolean  
   Case Else  
       Exit Function  
   End Select  
   ValueIsNumber = True  
End Function  
 
Если даты или логические не считать числами - удалить vbDate или vbBoolean

Если других данных не будет, то всё нормально. Весь сыр-бор разгорелся из-за того, что с проверкой типа есть подводные камни, и их желательно учитывать.

Что-то я не улавливаю.  
Если x.Value = Empty, то зачем Application.Trim ?  
Если x.Value <> Empty, то Application.Trim(x.Value) все равно не будет Empty

E - это экспоненциальная форма записи числа  
D - это тоже какая-то архаичная форма числа.  
И то и другое выдаст число As Double, возможно поэтому и D  
 
В окне Immediate:  
?2d3 или ?2e3 покадут результат 2000, т.е 2*10^3  
?VarType(2e3)=vbDouble выдаст True  
 
Если вписать в VBA-модуле, например, такую строку:  
a = 2d3 или a = 2e3  
то после смещения курсора на другую строку эта преобразуется в    
a = 2000#  
где # в конце означает преобразование числа в Double

RAN, воспроизведите макрос:  
Sub tt()  
   With Cells(1, 1)  
       .Value = "   "  
       Debug.Print .Value = Empty, Application.Trim(.Value) = Empty  
         
       .Value = Empty  
       Debug.Print .Value = Empty  
   End With  
End Sub  
 
Т.е. с помощью Application.Trim(x.Value) убиваю сразу двух зайцев: пустоту и пробел  
 
Юрий, я описал про IsNumeric, а с текстом придется учитывать и дату  
 
   With Cells(1, 1)  
       If Not IsDate(.Value) Then Debug.Print Application.IsText(.Value)  
   End With