Visual Basic PPT pomoć

Bok ljudi,

molio bi nekog stručnjaka koji se kuži u VBA da pogleda kod dolje u tekstu

Naime to je brojač dana od dana koji se unese u kod u VBA. No ja bi sad trebao da 

napravim jedan textbox u prezentaciji i kada tu unesem datum i pokrenem prezentaciju

odvrti program dalje. Znaci cilj je da datum ne unosim u VBA nego u PPT. Da li je to moguće?

Svaki komentar će mi pomoć

'=====KOD=====

Option Explicit

Private Const TIMERLIMIT As Single = 300000000# ' Limit

Sub UpdateCounter()
    Dim tStr As String
    Dim time2 As Date, time3 As Date
    Dim updateTime As Single
    Dim startDateTime As Date ' Datum zadnje nezgode
    Dim delTime As Single
'
    startDateTime = "14 03, 2008 "
    time2 = Now - startDateTime
    time3 = time2
    tStr = " " & Format(Int(time3), "000")
    ActivePresentation.Slides(1).Shapes("Counter").TextFrame.TextRange.Characters = tStr
'
    DoEvents
'
    While (Application.SlideShowWindows.Count > 0)
        time3 = Now - startDateTime
        If ((time3 <> time2)) Then
            tStr = " " & Format(Int(time3), "000")
            ActivePresentation.Slides(1).Shapes("Counter").TextFrame.TextRange.Characters = tStr
            time2 = time3
            DoEvents
        End If
    Wend
End Sub
'=====Kraj=====