Asignar fecha a Date & Time Picker

Saludos amigos;

Me gustaría consultarles algo a ver como podrían ayudarme a resolver estre
problema.

Tengo una hoja que tiene incrustada un Date & time Picker Control el cual
utilizo para asignar una fecha a una celda, para ello tengo el siguiente
código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With DTPicker1
.Visible = Not Intersect(Target, Range("B4:B4")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left
End With
End Sub
Private Sub DTPicker1_Change()
ActiveCell = CDate(DTPicker1)
End Sub

Ahora bien necesito que el control sugiera al usuario una fecha específia,
es decir, le sugiera al usuario el primer día de cada semana (lunes).
Utilizando la formula eso lo obtengo a traves de:
=HOY()-(DIASEM(HOY();2)-1)

Como transformo esa formula a Código VB y asignarle ese valor al control
como fecha seleccionada?

Gracias mil