Access - Calcular primer día de la semana

Sub Test()

Dim Semanas As Integer

Dim FirstDate As Date

Dim result As Date

    Semanas = 50

    FirstDate = DateSerial(Year(Date), 1, 1) 'Fecha a uno de enero del corriente

    result = DateAdd("ww", Semanas, FirstDate) 'Obtenemos una fecha con idéntico dia de la semana en la semana que indica la variable Semanas

    result = DateAdd("d", -Weekday(result, vbMonday) - 1, result) 'Obtenemos el lunes

    MsgBox result

End Sub