Simpel function

Module1.*****  ???

Lukker igen

Sorry baxos, fandt selv ud af det.

Glemt det jeg sagde

Try altering the two values you send:
Sub TestIt()
Dim x As Integer
Dim y As Integer

x = 3
y = 4
    TestChangeValues x, y
   
    MsgBox "Values = " & x & " " & y
   
   
End Sub
Public Function TestChangeValues(a As Integer, b As Integer)

a = 5
b = 6

End Function