Insert text from Comment in 3/4 TextBoxes in a Form

[excelent]

Hi Experts
Ned help with a little problem.. her it goes :

Got a Shared Workbook with som Comments around difrent sheets
Now i need to edit these Comments but
cant do this in a Shared workbook, well not without unshare
So im trying to copy text to a userform in 3 or 4 Textboxes
Then i can edit here an write it back to the comment
(well i ges i have to delete old comment and then make a new 1)

There is som Chr(10) in the Text to forse new line
and how do i seperate the whole text to 3/4 textboxes ewery time i meat a
Chr(10)

Here is what i got so far :
Private Sub UserForm_Click()
'Range("A2").Comment.Text Text:="Poul" & Chr(10) & "Madsen" & Chr(10) &
"Town" & Chr(10) & "Postalcode"

x = Sheets("Ark2").Range("A2").Comment.Text

Me.TextBox1 "Poul"
Me.TextBox2 "Madsen"
Me.TextBox3 "Town"
Me.TextBox4 "Postalcode"

End Sub

tks in advance for any help

 

[excelent]

Newer mind i got it