TextBox ' da sayı formatı sorunu

[DeliBalta58]

Textbox' a hücredeki veriyi aldığında
Textbox'taki sayı formatının;
Örneğin 1.255,03 Şeklinde olmasını istiyoum.

Aşağıdaki kodu kullandığımda sonuç 1255,03 oluyor.

Private Sub UserForm_Initialize()
Workbooks.Open ThisWorkbook.Path & "\odenek.xls"
TextBox3.Value = Format(TextBox3.Value, "#,###.00")
TextBox3.Value = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[odenek.xls]Sayfa1'!R3C1")
End Sub

 

[Orion1]

Aşağıdakini kullanının.

Private Sub UserForm_Initialize()
dim deg
Workbooks.Open ThisWorkbook.Path & "\odenek.xls"
deg = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[odenek.xls]Sayfa1'!R3C1")
TextBox3.Value = Format(deg, "#,###.00")
End Sub

 

[DeliBalta58]

Teşekkürler