Copy / Paste a range from Excel to a textbox in IE

Hi,
I have used following vba script, but the thing is, I am not getting all items as in the attached textbox.PNG, but only one item remains. Obviously, the second item in the list is replacing the first, the third is replacing the second, etc. I just need the whole list pasted.

Sub Fill_Form()
Dim IE As Object
Dim mytextfield As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.example.com/"
Do Until IE.readystate = 4
DoEvents
Loop
Set mytextfield = IE.document.all.Item("Textarea1")
mytextfield.Value = Sheets(1).Range("A1").Value
End Sub

Unfortunately, I can't, that's why I am using http://www.example.com/

I have also managed to paste the items as a comma-separated string, but I need a paragraph-separated string, one item per line.
Maybe , you have an idea how to convert the comma-separated string and paste the results, which is also a solution.
As I already mentioned, the URL is an intranet.
Thanks

I have changed the script a bit. I am almost there. I just need to convert the comma in a linebreak, and I still need your help:

Sub Fill_Form()
Dim IE As Object
Dim mytextfield As Object
Dim arrString As Variant
Dim i As Long

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.example.com/"
Do Until IE.readystate = 4
DoEvents
Loop

arrString = Split(Range("A1"), ",")
For i = 0 To UBound(arrString)
Set mytextfield = IE.document.all.Item("Textarea1")
mytextfield.Value = arrString(i)
Next i

End Sub

Hi Norie,
The code applies to the image Capture_NEW.PNG. Sorry for that.
Basically, you are right. I just want to put the values all together at once into the textbox not comma-separated, but separated with a line-break
Sorry for not sticking to the rules.

Sub Fill_Form()
Dim IE As Object
Dim arr As Variant

Const DELIMITER = vbCr
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.example.com/"
Do Until IE.readystate = 4
DoEvents
Loop
With ActiveSheet
arr = WorksheetFunction.Transpose(.Range(.[A1], .Cells(Rows.Count, "A").End(xlUp)))
If Not IsArray(arr) Then arr = Array(arr)
IE.document.getElementById("Textarea1").Value = Join(arr, DELIMITER)
End With
End Sub

The result of the attached code looks like Result.PNG. As I said, comma should be replace by newline.

Hi Norie,
Thank you, thank you, thank you
N