Определение типа ячейки.

[StudentofSUSU]

И еще раз здравствуйте... Мне надо получить ASCII код символа. Выдает ошибку на отмеченной комментарием строке. Прошу помочь...
Суть задания - определить тип переменной в ячейке.
Sub Определение_типа()
Dim s As String
Dim i As Integer
Dim bool As Boolean
bool = True
s = [a1].Text
Range("A2").Select
ReDim s1(1 To Len(s))
For i = 1 To Len(s)
s1(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s)
If (Asc(s1(i)) > 47) & (Asc(s1(i) < 58)) Then 'Ошибка
bool = False
End If
Next i
If bool = False Then
Selection.FormulaR1C1 = "string"
Exit Sub
End If
End Sub

[EducatedFool]

Вот так будет работать:

Sub Определение_типа()
    Dim s As String
    Dim i As Integer
    Dim bool As Boolean
    bool = True
    s = [a1].Text
    Range("A2").Select
    ReDim s1(1 To Len(s))
    For i = 1 To Len(s)
        s1(i) = Mid(s, i, 1)
    Next i
    For i = 1 To Len(s)
        If Asc(s1(i)) > 47 And Asc(s1(i) < 58) Then bool = False
    Next i
    If bool = False Then
        Selection.FormulaR1C1 = "string"
        Exit Sub
    End If
End Sub

PS: И Вы для этого просили разбить строку на массив?
Надо сразу было говорить, для чего...

Ваш макрос можно записать чуть короче:

Sub Определение_типа2()
    [a2] = IIf(IsNumeric([a1].Text), "число", "строка")
End Sub

Ну или так, что то же самое:

Sub Определение_типа2()
    If IsNumeric([a1].Text) Then [a2] = "число" Else [a2] = "строка"
End Sub

А так можно убедиться, что в ячейке записаны только цифры:
(предыдущий вариант допускал ввод дробных и отрицательных чисел)

Sub Определение_типа3()
    txt = [a1].Text: If txt = "" Then [a2] = "пусто": Exit Sub
    If txt Like String(Len(txt), "#") Then [a2] = "число" Else [a2] = "строка"
End Sub

[StudentofSUSU]

Ячейка может быть одного из четырех типов. Byte Long Int Double String Data. Вам не будет трудно написать код этого макроса?

[EducatedFool]

Ячейка может быть одного из четырех типов

Не угадали. Это переменная может быть 4-х и более типов.
С ячейкой всё несколько иначе, поэтому написать код не смогу.

К примеру, в ячейке записано число 15
К какому типу отнести ячейку? Подходит ко всем предложенным Вами типам...

[StudentofSUSU]

Разобрался сам, спасибо за помощь.