VBA to Insert a character in a specific position in a cell

[simora]

Trying to insert a "," in the 7th position from the right, if a cell length is > 6 AND the Cell contains a " . "