多行 Label 方框 VBA

Question

I have an issue with trying to make muliline entrys to a label box(inside a form), dont want to use a text box, I know there is a way to do it in code but I just can't seem to get it around my head all I try comes out false or returns only one value. Basicly what I am traying to do is import a comlumn of text entrys, from colum B till the first empty cell, the text is already in the column. Now I need to get that text into multiple lines of a label field when I click the button.

Any help will be greatly appriciated.

Thank you!

Private Sub readbtn_Click()
Dim content As Variant
content = 1
Range("B1").Select
Do While Range("B" & content) <> ""
Me.ValuesLbl.Caption = Range("B" & content)
content = content + 1
Loop

Selection.End(xlDown).Select
End Sub

Answer 1

You can use the vbNewLine constant in the caption property of the Label control:

Private Sub readbtn_Click()
   Dim content As Variant
   content = 1
   Range("B1").Select
   Me.ValuesLbl.Caption = "" 'clear any existing text in the Label control
   Do While Range("B" & content) <> ""
      Me.ValuesLbl.Caption = Me.ValuesLbl.Caption & Range("B" & content) _
                             & vbNewLine
      content = content + 1
   Loop
End Sub