VB a=a+1

Private Sub Timer1_Timer()
Static Dim a As Integer
a = a + 1
MsgBox a
End Sub

在过程外定义 a
过程里的变量是私有的，只在本过程运行那次有效
当运行完end sub 就没了

Dim a As Integer
Private Sub Timer1_Timer()
a = a + 1
MsgBox a
End Sub

不知道你是什么意思，所以也不知该说什么。
a=a+1 是一个累加器，也就是计数器。
需要注意的是：在消息框弹出时，计时器就停止了

他应该是问为什么每次a都是1.

解决方法：
static a as integer

你的问题不够明确!如果是要做个累加的数据的话可以先获取a的值如下:
Private Sub Timer1_Timer()
a = val(a) + 1
MsgBox a
End Sub

你这个要问的是什么呀，不说清楚。