Attribute VB_Name = "Module1"

Sub KaannaLista(ParamArray Arvot() As Variant)
1   Dim Temp As Variant
2   Temp = Arvot(0)
3   Arvot(0) = Arvot(2)
4   Arvot(2) = Temp
End Sub

Sub TestaaKaannaLista()
5   Dim A(2) As Variant
6   A(0) = 7
7   A(1) = 12
8   A(2) = 9
9   Call KaannaLista(A(0), A(1), A(2))
10  MsgBox A(0) & "-" & A(1) & "-" & A(2) '9-12-7
End Sub