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 vote289 views2 answers
Excel vba protect cells with formula
VBA
1 vote303 views2 answers
Vba string length
VBA
3 votes285 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote299 views1 answer
Vba horizontalalignment
VBA
0 vote338 views1 answer
Filesystemobject vba reference
VBA
-1 vote265 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote283 views1 answer
How to carry text to the next line in a label in vb.net
VBA
1 vote308 views1 answer
How to remove zeros in excel
VBA
0 vote284 views1 answer
Reset border color textbox vba
VBA
3 votes307 views1 answer
Vba double quote
VBA