I have a VBS code and want to convert it to kix

this is de VBS code
Code:

Dim datum, MyWeekDay, NewDate

datum = Date

MyWeekDay = WeekDay(Datum)

WScript.Echo "WeekDay: " & MyWeekDay

ZatDat = DateAdd("d", 7 - WeekDay(Datum), Datum)

WScript.Echo "DateAdd: " & ZatDat