PowerPoint Changing Text in PowerPoint

[NorthernShadow]

Hi...

I am trying to have a power point slide display "Day: 1" on odd days and "Day: 2" on even days in a textbox.

I am able to get a Message Box to work with the following code:

Sub SchoolDay()
If (Day(Date) Mod 2) = 0 Then
MsgBox ("Day: 2") 'Even Number Day is Day 2
Else
MsgBox ("Day: 1") 'Odd Number Day is Day 1
End If
End Sub

How can I get PowerPoint on entry to slide to run a similar script that would place the text in a textbox instead.

Thanks for your help.

-Ian