hi anybody knw how to change the date in the file .here the script of the file.i want to change the date at here.

Public Sub Main()
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\GAR TAC MC Table Sept 2001")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Designer\GAR TAC MC Table Sept 2001 was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("AVSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Designer\GAR TAC MC Table Sept 2001 was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = 900
Rep.Window.Left = 11715
Rep.Window.Width = 9600
Rep.Window.Height = 8970
Rep.SetProperty "Main Splits/Skills","11;19"
Rep.SetProperty "Other Splits/Skills","11;19"
Rep.SetProperty "Dates","1/08/2006-1/11/2006"
Rep.SetProperty "Day Shift","1"
Rep.SetProperty "Night Shift","1"
b = Rep.ExportData("C:\EOW-3.txt", 44, 0, True, True, True)
Rep.Quit
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
End Sub


now my problem is i want the avsauto script change the date everyday.here the avsauto script statement for the date
Rep.SetProperty "Dates","1/08/2006-1/11/2006"

any body knw how to change the date by doin program in VB.

thanks plz help me. i sthat i need to write the date.but how.plz help meit is urgent