Tekst fra tekstbokse til en tekstboks

Du er velkommen til at sende filen - du kender @-adressen

Userform1:
Private Sub CommandButton1_Click()
Rem Overfør tekstbokse
    With UserForm2
        .TextBox1 = Me.TextBox1
        .TextBox2 = Me.TextBox2
        .TextBox3 = Me.TextBox3
        .TextBox4 = Me.TextBox4
        .TextBox5 = Me.TextBox5
    End With

    Load UserForm2
    UserForm2.Show
End Sub

Userform2:

Dim adrLabel As String
Private Sub UserForm_activate()
    adrLabel = ""
    adrLabel = adrLabel & opByg(Me.TextBox1)
    adrLabel = adrLabel & opByg(Me.TextBox2)
    adrLabel = adrLabel & opByg(Me.TextBox3)
    adrLabel = adrLabel & opByg(Me.TextBox4)
    adrLabel = adrLabel & opByg(Me.TextBox5)
   
    Me.TextBox6 = adrLabel
End Sub
Private Function opByg(tekst)
    If tekst <> "" Then
        opByg = tekst & vbCr
    End If
End Function

Takker - virker perfekt.