Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Public myDict As Dictionary
- Sub InitializeDict()
- Set myDict = New Dictionary
- With myDict
- .Add "legal", 0
- .Add "orphans", 0
- .Add "transfer_share", 0
- .Add "internet", 0
- .Add "xborder", 0
- End With
- End Sub
- Sub incrementVariable(myFunction As String)
- If myDict.Exists(myFunction) Then
- myDict(myFunction) = myDict(myFunction) + 2
- End If
- End Sub
- Sub test()
- InitializeDict
- Debug.Print myDict("internet")
- incrementVariable ("internet")
- Debug.Print myDict("internet")
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement