try

TextBox3.Value = Format(INT(10000*TextBox1 / TextBox2)/10000, "####.00000")