Robert asks Could you tell me how to break an expression of Msgbox into 3 lines and insert a blank line into such an expresion.

Use this code:

Msg = "This is line 1" & vbcr & "This is Line 2 " & vbcr & vbcr & "This is Line 4"
Msgbox Prompt:=Msg