Existem outras vírgulas no arquivo? Caso contrário, você pode simplesmente usar a ferramenta localizar e substituir.
Ctrl + F - > substituir guia - > encontrar "." substitua por ",".
Se você precisar de uma macro, você pode se registrar fazendo isso, e você acabará com algo parecido com
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Você precisa de algo mais avançado?