Userform textbox output to one decimal place

Hi All,

I have an output in one of my textboxes in my userform that returns a number to four decimal places. Ideally I would like the output value to be given to one decimal place. I currently have the below code, however it isn't working for me. Any help would be much appreciated.

Public Sub CommandButton1_Click()

TextBox7.Value = ((Val(TextBox4) * Val(TextBox3))) / Val(TextBox8)
TextBox7.Text = format(Value, "0.0")
TextBox12.Value = ((Val(TextBox18) * Val(TextBox15))) / Val(TextBox11)
TextBox9.Value = 100 - ((Val(TextBox8) / Val(TextBox4))) * 100
TextBox10.Value = 100 - ((Val(TextBox11) / Val(TextBox18))) * 100
End Sub

Thank you in advance,

Tubes