TextBox ta virgül ve nokta sorunu

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarda excelde çalışma sayfasından UserForm1 e veri çekiyorum. Hücrelerdeki virgüllerin textboxlarda nokta olarak görünmesi için Controls("TextBox" & r).Text = Replace(hcr.Value, ", ", ". ") kodunu deniyorum ama sonuç alamıyorum. Acaba nerde hata yapıyorum . İlgilenen arkadaşlara şimdiden teşekkürler.
Not :Kolaylık olacaksa tablo aralığı B2:H10 olarak alınabilir.

Dim hcr As Range
Dim r As Byte
For Each hcr In Range("B" & k + 1, "H" & k + 9)
r = r + 1
Controls("TextBox" & r).Text = ""
Controls("TextBox" & r).Text = Replace(hcr.Value, ". ", ", ")
Next

 

[excellcan]

Şüphesiz daha uygun bir çözüm vardır. Ama benim forumdan uyarlayabildiğim bu .
Dim hcr As Range
Dim r As Byte
For Each hcr In Range("B" & k + 1, "H" & k + 9)
r = r + 1
Controls("TextBox" & r).Text = ""
Controls("TextBox" & r).Text = Replace(hcr.Value, ". ", ", ")
Next

For c = 1 To 63
Controls("TextBox" & c) = Replace(Controls("TextBox" & c), ",", ".")
Next c