Sub AddierEins (ByVal x As Integer) x = x + 2 End Sub Dim i As Integer i = 100 AddierEins (i) Print i Sleep