TextBox ta Format Sorunu

[captan]

Arkadaşlar Herkese kolay gelsin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.TextBox2 = ListBox1.List(ListBox1.ListIndex, 0)
UserForm1.TextBox3 = ListBox1.List(ListBox1.ListIndex, 1)
UserForm1.TextBox4 = ListBox1.List(ListBox1.ListIndex, 2)
UserForm1.TextBox3.SetFocus
Unload UserForm3
End Sub

Bu kodlarla UserForm3 ten UserForm1 e veri gönderiyorum,
UserForm1.TextBox4 = ListBox1.List(ListBox1.ListIndex, 2) Bu sütundaki veriler sayı ve aktarma yaparken noktalama işlemini yanlış yapıyor.
Örneğin 1,2 1.2 oluyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

UserForm1.TextBox4 = Replace(ListBox1.List(ListBox1.ListIndex, 2) , "." , ",")

 

[captan]

Teşekkürler

Sayın Meslektaşım Yardımların için çok teşekkür ederim.