For Each td In tr.getElementsByTagName("TD")
ReDim Preserve arr(1 To 3, 1 To row + 1)
If j = 1 Then arr(j, row + 1) = td.innerText
If j = 2 Or j = 3 Then arr(j, row + 1) = Replace(td.innerText, ".", ",")
j = j + 1
Next
Rakamlar doğru formatta gelmiyormuş alttaki gibi yapınca düzeldi