Visual Basic/számológép segítség?

Dim Num1 As Double

Dim Num2 As Double

Dim Num3 As Double

Dim Num4 As Double

Dim Num5 As Double

Num1 = TextBox1.Text

Num2 = TextBox2.Text

Num3 = TextBox3.Text

Num4 = TextBox4.Text)

TextBox5.Text = ((Num2 + Num2) * Num1) / (Num4 + 6)

Na ezzel egy gondom van amikor elvégzi a műveletet kissebb elcsúszások vannak mindig mint ha normál számológéppel számoltam volna pl. 1,66666 helyett 1,38888 nekem fontos lenne a pontos eredmény aki tudja a megoldást és leírja annak nagyon megköszönném előreis ;) !