Split Words in the comment text - VBA Macro

So I used this code. I was not able to trim the comment.

Code:

---

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.