Инструментарий VBA

MsgBox "текст сообщения", vbAbortRetryIgnore + vbDefaultButton2 + vbExclamation, "заголовок

DoCmd.SetWarnings False

? MsgBox ("текст сообщения", vbAbortRetryIgnore + vbDefaultButton2 + vbExclamation, "заголовок")

If MsgBox("текст сообщения", vbAbortRetryIgnore + vbDefaultButton2 + vbExclamation, "заголовок") = vbIgnore Then
    MsgBox "меня все игнорируют"
End If

Sub НашаПроцедура()
For i = 0 To 3
    a = a + i
    Debug.Print "итерация", i, a
Next
Debug.Print "итог", i, a
End Sub
 
результат:
итерация       0             0 
итерация       1             1 
итерация       2             3 
итерация       3             6 
итог           4             6

Sub НашаПроцедура()
For i = 3 To 0 Step -1
    a = a + i
    a = a / i
    Debug.Print a
Next
End Sub

Sub НашаПроцедура()
On Error GoTo ErrorHandler
For i = 3 To 0 Step -1
    a = a + i
    a = a / i
    Debug.Print a
Next
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 11: MsgBox "На ноль делить нельзя", vbCritical
Case Else: MsgBox Err.Description, vbCritical, "Код ошибки: " & Err.Number
End Select
End Sub

    If i = 0 Then
            a = 0
    Else:   a = a / i
    End If

Case Else: MsgBox Err.Description, vbCritical, "Код ошибки: " & Err.Number

Sub Бесконечность()
Dim i As Integer
While i = 0
    Debug.Print i
Wend
End Sub

Private Sub Кнопка2_Click()
    DoCmd.GoToRecord , , acNext
    Debug.Print Me.Поле1
    Stop
End Sub

Sub Месяц()
Dim dt As Date
dt = DateValue("01/05/2016")
While Month(dt) = 5
    If Выходной(dt) = True Then
        Debug.Print "выходной", dt
    Else
        Debug.Print "рабочий день", dt
    End If
    dt = DateAdd("d", 1, dt)
Wend
End Sub
 
Function Выходной(dDate As Date) As Boolean
Select Case Weekday(dDate, vbMonday)
Case 6, 7
    Выходной = True
Case Else
    Выходной = False
End Select
End Function