Немного сложно дать вам идеальное решение с ограниченным вводом, но вот начало:
mainWorkBook.Sheets("Sheet1").Range("A" & intCounter).Value = Replace(G_JAHRE(i).ChildNodes(0).nodeTypedValue, ".", ",")
Выполняет поиск точки и заменяет ее запятой.
Это не идеальное решение, и во многих случаях оно не будет работать, но если у вас достаточно чистый ввод, это, скорее всего, поможет.