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.