Create comment that updates based off cell change

Hello,

I found a macro for a sheet to add a comment every time a cell is changed, however I need it modified to keep adding comments instead of overwriting the original.

Here's the current macro:

Option Explicit
Public preValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("$B$22:$B$40")) Is Nothing Then Exit Sub
Target.ClearComments
Target.AddComment.Text Text:="Previous Value was " & preValue & Chr(10) & "Revised " & Format(Date, "mm-dd-yyyy") & Chr(10) & "By " & Environ("UserName")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("$B$22:$B$40")) Is Nothing Then Exit Sub
If Target = "" Then
preValue = "a blank"
Else: preValue = Target.Value
End If
End Sub

Thanks for the heads up. I did take another look at rule 3.

The code still overwrites the previous text instead of adding to it.

I did and I'm not getting it to work.

Got the code entered this morning but it's not inputting the number. Its blank.

Got it. Thank you very much for your help.