tekstboks med flere linier i en userform

1.
Jeg henter idag data ind i en userform på denne måde

Tekstbox1.Text = Range("a1")

Dette er ingen problem at få tekstboksen til at vise hvad der står i celle a1 i min userform, men hvis teksten er lang i celle a1, så kan jeg ikke få userformen til at vise teksten ordentligt i tekstboksen.

Selvom jeg laver en stor tekstboks med flere linier viser tekstboksen i userformen kun en monster lang linie. Som man slet ikke kan se det hele af.
Kan man få tekstboksen i userformen til at "ombryde" teksten som man normalt gør i en almindelig celle?

2.
Min userform er en multipage.

Hvordan får jeg min multipage til at opdatere værdierne i min userform / multipage når denne startes?
Pt. køres denne makro

Private Sub MultiPage1_change()
Tekstbox1.Text = Range("a1")
..
..
end sub

Men jeg er nødt til at skifte "fane" for at den opdaterer mine tekstfelter i userformen/multipagen.

Hvis det havde været en alm. userform kunne jeg have skrevet:

Private Sub userform1_initialize()
Tekstbox1.Text = Range("a1")
..
..
end sub

Men jeg kan ikke få det til at virke på en multipage.

Jeg beklager at jeg har slået 2 spørgsmål sammen i et, men dette er mine sidste 30 point :o(