Dim s(2) As Integer
Sub demo()
MsgBox (s(0))
MsgBox (s(1))
s(0) = s(0) + 1
s(1) = s(1) + 1
End Sub

repeated execution of demo will show the values are retained
--
Gary''s Student - gsnu200723