This version has

oSelectRange.text = "[highlight='vb']" & oSelectRange.text & "[/highlight]"