If vbCancel = MsgBox("�� ������ ����� �� ��������� ?", vbOKCancel + vbQuestion, "���������") Then
Exit Sub
End If
Exit Sub
End If
Dim AccessArray(5) As Boolean
AccessArray(0) = True
AccessArray(4) = False
AccessArray(0) = True
AccessArray(4) = False
If IsNumeric("150") = True .......
InStr(��������������������, ���������, ���������, ���������������)