WeekDaysStr = Array As String ("zondag","maandag", "dinsdag", "woensdag", "donderdag", "vrijdag", "zaterdag")
TempStr = DateTime.GetDayOfWeek(DateTime.DateParse(Month & "/" & Day & "/" & Year ) -1)
If TempStr = 7 Then TempStr = 0
DagNaam=WeekDaysStr(TempStr)