Creating one text string from multiple lines

Sub test()
Dim LR As Long
LR = Range("D" & Rows.Count).End(xlUp).Row
Range("E1").Value = Join(Application.Transpose(Range("D4:D" & LR)), ", ")
End Sub

Sub eMailCombine()
lastRow = Range("D4").End(xlDown).Row
Dim eMail As String
eMail = vbNullString
For i = 4 To lastRow
    If i = 4 Then
        eMail = Cells(i, "D").Value
    Else
        eMail = eMail & ", " & Cells(i, "D").Value
    End If
Next i
Range("E1").Value = eMail
End Sub

Sub Concat()
Dim r1 As Range, r2 As Range
On Error Resume Next
Set r1 = Application.InputBox("Select a vertical range to concatenate", Type:=8)
If r1 Is Nothing Then Exit Sub
On Error GoTo 0
If r1.Columns.Count > 1 Then
    MsgBox "only one column allowed", vbExclamation
    Exit Sub
End If
Set r2 = Application.InputBox("Select destination cell", Type:=8)
If r2 Is Nothing Then Exit Sub
On Error GoTo 0
If r2.Cells.Count > 1 Then
    MsgBox "only one cell allowed", vbExclamation
    Exit Sub
End If
r2.Value = Join(Application.Transpose(r1), "+")
End Sub