sub Main()
   dim intVar as Integer = 1
      console.writeLine (intVar)  'hier kommt 1 raus
      test (intVar)
      console.writeLine (intVar)  'hier kommt 2 raus
End sub
 
Function test(ByRef Var1 As Integer)
     intVar +=1
End Function