怎么在label控件里多次输出并换行，求解

Private Sub Command1_Click()

Dim s As Long, n As Long

n = 2
s = 1
Do While s <= 400000

s = s * n ^ n
Label2.Caption = s

Label1.Caption = n
n = n + 1

Loop

n = n - 2

Label3.Caption = n

End Sub

代码格式最好调成markdown语法的，```你的代码 ```。
你这个没有说明什么语言，什么情况下的操作。