Sub ma_concatenation()
Dim t, ma_var$
t = [A1:B3]
ReDim Preserve t(1 To 3, 1 To 3)
ma_var = t(1, 1) & " : " & Format(t(1, 2), "# ##0.000 €") & Chr(10)
ma_var = ma_var & t(2, 1) & " : " & Format(t(2, 2), "# ##0.000 €") & Chr(10)
ma_var = ma_var & t(3, 1) & " : " & Format(t(3, 2), "# ##0.000 €")
MsgBox ma_var
End Sub