Probleme avec vb

Bonjour

J'ai un petit soucis avec un code sous vb, je souhaiterai faire en sorte que sur mon texte word, lorsque je click sur un bouton, il m'affiche dans une textbox la semaine dans laquelle se situe le jour d'ouverture.

Voilà le code je pense qu'il y a une erreur quelque part mais où ???? Ensuite je n'ai pas mis la textbox je ne savait pas trop où la mettre dans le code :

Function WeekStart() As Date
Dim wday As Byte
wday = Weekday(Date)
Select Case wday
Case 1
WeekStart = Date + 1
Case 2
WeekStart = Date
Case 3
WeekStart = Date - 1
Case 4
WeekStart = Date - 2
Case 5
WeekStart = Date - 3
Case 6
WeekStart = Date - 4
Case 7
WeekStart = Date - 5
End Select

End Function
Private Sub Semaine_Click()
Selection.GoTo What:=wdGoToBookmark, Name:="wDate"
Selection.InsertBefore Format(WeekStart(), "ddd d/m/yy")
Selection.InsertAfter " jusqu'au "
Selection.InsertAfter Format(WeekStart() + 6, "ddd d/m/yy")
End Sub

Si qqn peut m'aider ca m'arrangerai ...Merci