Option Strict On

Imports System

Public Module Module1

    Public Sub Main()

        Dim i As Integer = 0

        Console.WriteLine(i) 'i=0

        TwoPlusTwo(i)

        Console.WriteLine(i) 'i=4

    End Sub

    Private Sub TwoPlusTwo(ByRef value As Integer)

        value = 2 + 2

    End Sub

End Module