There are many ways of doing this, but this is the one I settled with:
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