[VB] Variabili in più sub

[freezone]

Come faccio ad usare una variabile che ho definito in una sub nella sub successiva?

 Private Sub cdmTimer1_Click()
    Dim datTimer1 As Date
    datTimer1 = Date
    txtTimer1.Text = datTimer1
End Sub

Private Sub cmdTimer2_Click()
    Dim datTimer2 As Date
    datTimer2 = DateAdd("d", 5, Date)
    txtTimer2.Text = datTimer2
End Sub
Private Sub cmdDiff_Click()
    Dim intDDiff As Integer
    intDDiff = DateDiff("d", datTimer2, datTimer1)
    lblDiff.Caption = intDDiff
End Sub

La differenza mi dà zero perchè mi risultano vuote datTimer1 e datTimer2.