Strike full line of selected text in form control textbox

[KlaasE]

Hey,

I am having trouble with my textbox 'correction' macro. What I want it to do is have the user select a line in a form control textbox. Then it should select the whole line and strike through it.
The code I use to add lines to the textbox is as followed:

Sheets("Orderformcopy").Shapes("CommentBox").TextFrame.Characters.Text = Sheets("Orderformcopy").Shapes("CommentBox").TextFrame.Characters.Text & Format(Date, "dd-mm-yyyy") & " - " & NameComboBox.Value & ": " & CommentTextBox.Value & vbNewLine

Any advice is welcome.
Thanks!

 

[KlaasE]

Any advice is still welcome