Class Module VB.Net Tutorial

public class Test
   public Shared Sub Main
        Dim myInteger As Integer = 5
        TestByVal(myInteger)
        Console.WriteLine(myInteger)
    End Sub
    Private Shared Sub TestByVal(ByVal int As Integer)
        int = int * 2
    End Sub
End class
5