So I used this code. I was not able to trim the comment.
If Left(ActiveDocument.Comments(i).Range, 4) = "HIGH" Then .Cells(i + AddRow, 6).Formula = "High" Else If Left(ActiveDocument.Comments(i).Range, 6) = "MEDIUM" Then .Cells(i + AddRow, 6).Formula = "Medium" Else If Left(ActiveDocument.Comments(i).Range, 3) = "LOW" Then .Cells(i + AddRow, 6).Formula = "Low" End If End If End If
Thanks a lot for your support and guidance.