Multi-Line MsgBox in VBA

Public Sub Update_Msg()

Dim line1 As Variant
Dim line2 As Variant
Dim line3 As Variant
Dim line4 As Variant
'Dim line5 As Variant
'Dim line6 As Variant
'Dim line7 As Variant

line1 = "Line1"
line2 = "Line2"
line3 = "Line3"
line4 = "Line4"
'line5 = "t"
'line6 = "t"
'line7 = "t"

    MsgBox line1 & vbCrLf & vbCrLf & _
           line2 & vbCrLf & vbCrLf & _
           line3 & vbCrLf & vbCrLf & _
           line4 & vbCrLf & vbCrLf & _
           line5 & vbCrLf & vbCrLf & _
           line6 & vbCrLf & vbCrLf & _
           line7 & vbCrLf & vbCrLf

End Sub