Problème de Msgbox

Msgbox "attention à vous", VBokonly, "Message d'erreur"

Sub vl()
Dim Titre$, Lignes$, Mess_age$, i&
Titre = "Je suis le titre"
Lignes = "1ère ligne du message" & vbLf
Lignes = Lignes & "2ème ligne du message" & vbLf
Lignes = Lignes & "3ème ligne du message"
Mess_age = Lignes
    For i = 1 To 6
        MsgBox Mess_age, i, Titre
    Next i
End Sub

MsgBox "attention à vous", vbOKOnly, "Message d'erreur"

MsgBox "Attention à vous", vbCritical, "Message d'erreur"

Réponse = MsgBox("Attention à vous", vbCritical, "Message d'erreur")