Vba static variable

' Static variable inside a function
Function MyStaticFunction(ByVal pToAdd As Integer) As Integer
    Static iStatic As Integer       ' Keeps its value between calls
    iStatic = iStatic + pToAdd
    MyStaticFunction = iStatic
End Function
'---------------------------------------------------------------------
Sub TesMe()
  Debug.Print MyStaticFunction(1)	' 1
  Debug.Print MyStaticFunction(3)	' 4
End Sub

Similar codes

0 vote197 views1 answer
Thread sleep vb
VBA
1 vote198 views1 answer
Set font for ms chart vb.net
VBA
7 votes204 views1 answer
Excerl vba array to range
VBA
0 vote178 views1 answer
Excel vba disable copy paste
VBA
0 vote191 views1 answer
Putting marquee in vb.net
VBA
1 vote179 views1 answer
Add control vb
VBA
0 vote177 views1 answer
Add items to combobox vb.net
VBA
8 votes444 views1 answer
Excel vba make word from bytes
VBA
0 vote174 views1 answer
Excel vba populate array with cell values
VBA
5 votes210 views1 answer
Excel vba first byte from INTEGER
VBA