HirasFont

Sub Main()
Dim tpx(1 To 5) As Integer
Dim i As Single
For i = 1 To 5
If tpx(i) = i > 0 Then
i = 0
ElseIf i < 0 Then
i = "text"
End If
Cells(1, 1) = i
Next i

End Sub


Допер сам ... масив не прописывал...