format problemi

[sender]

textbox1 de 6 , textbox2 de 30 değerleri var.
textbox1 i textbox2 ye böldüğümüzde textbox3 te 0,2 yerine 0.2 cokması için formatlayabilirmiyiz.
Tabiki bçlgesel ayarları kurcalamadan olacak bu iş..
Format(textbox3, "###,0,0") yaptığımda olmuyor..
yardımlarınızı bekliyorum.

[Haluk]

Private Sub CommandButton1_Click()
x = Val(TextBox1)
y = Val(TextBox2)
TextBox3 = WorksheetFunction.Substitute(Format(x / y, "0.00"), ",", ".")
End Sub

[sender]

sayın raider problem çözüldü ama yeni bir problem doğdu.
textbox3 ile textbox4, textbox5 kendi topluyordu.
örneğin
100.000 + 2.10 = 100.02.1 olacağı yerde 100 oluyor.

bu problemi nasıl hallederz..