Private Sub CommandButton1_Click()
If Label1.Caption = "" Then
Label1.Caption = TextBox1.Value
Else:
Label1.Caption = Label1.Caption & vbCr
Label1.Caption = Label1.Caption & TextBox1.Value
End If
TextBox1.Value = ""
End Sub
Private Sub CommandButton1_Click()
If Label1.Caption = "" Then
Label1.Caption = TextBox1.Value
TextBox2.Value = TextBox1.Value
Else:
Label1.Caption = Label1.Caption & vbCr
Label1.Caption = Label1.Caption & TextBox1.Value
TextBox2.Value = TextBox2.Value + TextBox1.Value
End If
TextBox1.Value = ""
End Sub