V B A Simply 02: Counter

Script

Sub Counter()  

Dim i As Intege  

i = i + 1 + 45  

MsgBox i  

End Sub

  b a c k