[VB] Arrondir une date et MsgBox

Bonjour,
J'ai 2 problèmes différents... Tout d'abord Arrondir une date au mois...
J'ai 11/01/2011 ou 12 -13- 14 etc .../01/2011 je veux qu'elle devienne dans tous les cas 01/01/2011. Et je ne sais pas du tout comment faire cela !

Ensuite Deuxième problème J'obtiens l'erreur : " type défini par l'utilisateur non défini." avec les codes suivant sur Excel 2003.

"Private Sub CommandButton2_Click()
Public Function MsgBox( _
ByVal Prompt As Object, _
Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _
Optional ByVal Title As Object = Nothing _
) As MsgBoxResult
End Function"


Merci pour votre aide...