msgBox

Bonjour à tous
je voudrais ajoutez du texte (à la place de 'ajout texte'),mais je n'y arrive pas,auriez vous une idée ?

Sub Salut1()
Greeting = ' Vous étes sur la saisies du Matériel '
If Time < '18:00:00' Then
MsgBox ' Bonjour , Mr ' & ActiveSheet.Name & _
Chr(13) & _ajout de texte
Chr(13) & ' Bonne Journée et bonne Saisie. ', vbOKOnly + vbInformation, Greeting
Else
MsgBox ' Bonsoir , Mr ' & ActiveSheet.Name & _
Chr(13) & _
Chr(13) & ' Bonne Soirée et bonne Saisie. ', vbOKOnly + vbInformation, Greeting
End If

End Sub

emrci