Sub io()
Dim i As Integer
If i = 0 Then
  For i = 1 To 10
   Msgbox "тут текст " & i
  Next
End If
End Sub

Sub io()
Msgbox "test1"
End Sub

Sub io()
Msgbox "test2"
End Sub

Sub io()
Msgbox "test3"
End Sub

'=========================================================
' Author: nerv            | E-mail: nerv-net@yandex.ru
' Last Update: 22/11/2011 | Яндекс.Деньги: 41001156540584
'=========================================================
Private Sub LiteSort(ByRef x(), ByVal f%)
Dim v, u&, d&: d = f
If IsArray(x) Then
         For u = f + 1 To UBound(x)
             If x(u) < x(d) Then
                 v = x(d): x(d) = x(u): x(u) = v
                 u = d - 1: d = u - 1: If u < f Then d = u: u = f
             End If
             d = d + 1
         Next
End If
End Sub

Sub Example()
Dim x()
x = Array(5, 2, 1, 4, 0)
LiteSort x, 0 ' Array, First Item
End Sub

'=========================================================
' Author: nerv            | E-mail: nerv-net\@yandex.ru
' Last Update: 18/10/2011 | Яндекс.Деньги: 41001156540584
'=========================================================
' Быстрый ввода даты
'
' 1511 или "1511" или "15.11" = 15/11/Текущий_год
' 151011 или "151011" или "15.10.11" или 15102011 или "15102011" или "15.10.2011" = 15/10/2011

Public Function QuickEntryDate(ByVal x As String) As Date
On Error Resume Next
If IsNumeric(x) Then
        Select Case Len(x)
            Case 3, 4:
                x = Format(x, "0000")
                x = Left(x, 2) & "/" & Right(x, 2) & "/" & Year(Now)
            Case 5, 6, 7, 8
                x = Format(x, String(IIf(Len(x) <= 6, 6, 8), "0"))
                x = Left(x, 2) & "/" & Mid(x, 3, 2) & "/" & Mid(x, 5)
        End Select
End If
QuickEntryDate = CDate(x)
End Function

Sub Example()
With ActiveCell
        If .Value2 <> "" Then
            If Not IsDate(.Value) Then
                .Value = QuickEntryDate(.Value2)
            End If
        End If
End With
End Sub

Mid$(2, 1, 1)

Sub io()
If 1 > 0 Then
          For i = 1 To 10
              If i < 0 Then
                  Select Case x
                      Case 1:
                      Case 2:
                  End Select
              End If
          Next
End If
End Sub