Dim DSTR As String
Dim i As Integer

Sub Main

DSTR=Year(Date()) & Right("0" & Month(Date()),2) & Right("0" & Day(Date()),2)

For i=1 To 8
  SetVar(i,CInt(Mid(DSTR,i,1))+1)
Next

End Sub