ScheduleAT "0800", "m,t,w,th,f", "c:\my.exe"

Public Sub ScheduleAT(sTime as string, sDays as string, sCommand as string)

Shell "AT " & sTime & " /every:" & _
sDays & " " & sCommand

end sub