Dim i As Integer      ' Zasięg lokalny

If i = 0 Then
  Dim j As Integer    ' Początek zasięgu blokowego zmiennej j
  j = 10              ' Zasięg blokowy zmiennej j
End If                ' Koniec zasięgu blokowego zmiennej j

Debug.WriteLine(j)
