Private Sub UserForm_Initialize()
Dim i As Byte
Dim WS As Worksheet
Set WS = ThisWorkbook.Worksheets('Sheet1')
With Me.TextBox1
.MultiLine = True
For i = 1 To 10
Select Case i
Case 1 To 9
.Value = .Value & WS.Cells(i, 1) & Chr(10)
Case 10
.Value = .Value & WS.Cells(i, 1)
End Select
Next
.AutoSize = True
End With
End Sub