Scope of a local variable in loop (Case 4)

Program.vb

Private Sub LocalVariableCase4A()
    For i = 0 To 2
        LocalVariableCase4B()
    Next

    'False
    'False
    'False
End Sub

Private Sub LocalVariableCase4B()
    Dim value As Boolean
    Console.WriteLine(value) 'No error in VB
    value = True
End Sub