Split Words in the comment text - VBA Macro

[macropod]

I have tried your code, It gives me an error "Runtime error - Subscription out of range.

That suggests one or more comments don't have the
Low: comment text
Medium: comment text
High: comment text
in them that your first post indicated.