Concatenate Msg Box Results

[Beachson]

My question is ... how would I concatenate the results of the following message box code ...

MsgBox ActiveCell.Offset(0,1) & vbNewLine & ActiveCell.Offset(0,2)

The coded above makes the message box longer when there is no text found in

ActiveCell.Offset(0,2)

I would like the box to be only as big as is necessary based on the results. I need to have each result appear underneath the previous. Which is the reason for

vbNewLine

Thanks for any help

 

[Fluff]

How about

Dim Msg As String
   If ActiveCell.Offset(, 2) = "" Then
      Msg = ActiveCell.Offset(, 1)
   Else
      Msg = ActiveCell.Offset(0, 1) & vbLf & ActiveCell.Offset(0, 2)
   End If
MsgBox Msg

 

[Fluff]

Alternatively

MsgBox = Join(Application.Index(Selection.Offset(, 1).Resize(, 2).Value, 1, 0), vbLf)

 

[Beachson]

Alternatively

MsgBox = Join(Application.Index(Selection.Offset(, 1).Resize(, 2).Value, 1, 0), vbLf)

Would the same logic apply if I wanted to add

ActiveCell.Offset(0,3)

and so on or would different logic be required?

 

[Fluff]

If you want to avoid blanks lines youl'd need

MsgBox Replace(Join(Application.Index(Selection.Offset(, 1).Resize(, 3).Value, 1, 0), vbLf), Chr(10) & Chr(10), Chr(10))