Add text in red with userForm

[KlaasE]

Hi folks,

For a worksheet I'm making a comment form. What it does is simply add some text to a cell the user selects. What I've been unable to figure out is how I make only the added text in red, while the rest stays the same (black). Right now it add's the text from a Textbox to a cell. It seems like a simple question but I just can't find the answer yet on the forums.
The code I'm using right now:

Private Sub CommentButton_Click()
ActiveSheet.Unprotect Password:="***"
Set YourRange = Application.InputBox(Prompt:="Select Range", Type:=8)
YourRange.Select
ActiveCell.Value = ActiveCell.Value & vbNewLine & CommentTextBox.Value
ActiveSheet.Protect Password:="***"
End Sub

Thanks!

 

[Fluff]

How about

Private Sub CommentButton_Click()
    Dim YourRange As Range
    Dim Lngth As Long
    
    ActiveSheet.Unprotect Password:="***"
    Set YourRange = Application.InputBox(Prompt:="Select Range", Type:=8)
    Lngth = Len(YourRange.Value)
    YourRange.Value = YourRange.Value & vbNewLine & CommentTextBox.Value
    YourRange.Characters(Lngth + 1).Font.Color = vbRed
    ActiveSheet.Protect Password:="***"
End Sub

 

[KlaasE]

Perfect, thanks!
I tried to store the whole CommentTextBox in a variable but couldn't get it working.

 

[Fluff]

You're welcome & thanks for the feedback