Append userform textbox adding date, UserName and carriage return

[srschicago]

I am using a Userform to add to cell text. I want to have the date and UserName automatically added to the next row after the current cell text and a carriage return, setting up the user to begin typing.
I know of the Application.Username, and Me.Textbox1.Value = Format(Date, "mm/dd/yy") codes, but am not sure how to use them in what I am trying to accomplish,
I have the following code that retrieves the current cell text and loads it into the userform:

Private Sub CommandButton1_Click()
    Set myrange = Application.InputBox( _
    prompt:="Select the cell you want to edit", Title:="Edit Cell Text", Type:=8)
        myrange.Select
        
'set screen update to off
    Application.ScreenUpdating = False
    EditCellText.TextBox1.Text = CStr(myrange.Value)
    EditCellText.Show
End Sub

 

[MrIfOnly]

Try this:

Private Sub CommandButton1_Click()
    Set myrange = Application.InputBox( _
    prompt:="Select the cell you want to edit", Title:="Edit Cell Text", Type:=8)
        myrange.Select
        
'set screen update to off
    Application.ScreenUpdating = False
    EditCellText.TextBox1.MultiLine = True
    EditCellText.TextBox1.Text = CStr(myrange.Value) & vbNewLine & _
        Application.UserName & vbNewLine & Format(Date, "mm/dd/yy") & vbNewLine
    EditCellText.Show
End Sub

Regards,

CJ

 

[srschicago]

That works perfectly! (as you knew it would)
Thanks MrIfOnly. Your rates are acceptable, but where to pay?

 

[MrIfOnly]

You are very welcome! And feel free to pay it forward.