Excel - Error en costo unitario en label

tengo un textbox donde ingresan el costo total de la compra de material
tengo un label que refleja el costo unitario de estos materiales
pero cuando el valor lleva decimales el valor unitario se distorciona como deberia hacer el codigo para que se resuelva este problema: este calculo se dispara cuando se escribe en el textbox con evento change

el codigo es asi:

Private Sub TextBox11_Change()
Dim preciounit As Double
Dim precioiva As Double
Dim iva As Double
Dim alerta As String
Dim total As Integer

If ComboBox2.Value = "" Or TextBox2.Value = "" Then
alerta = MsgBox("Ud. no puede dejar campos vacios", vbOKOnly + vbCritical, "ERROR")
End If

If Val(TextBox11.Value) <> "0" And ComboBox2.Value <> "" And TextBox2.Value <> "" Then
'aqui es donde me da problemas porque no me aparece el precio unitario correcto
preciounit = Val(TextBox11.Value) / Val(TextBox2.Value)

iva = Val(TextBox11.Value) / 1.12

Label14.Caption = Format(preciounit, "0.0000")
Label23.Caption = Format(iva, "0.0000")
If TextBox11.Value <> "0" And TextBox12.Value = "" Then
lbtot = Val(TextBox11.Value)
lbtot = Format(Val(lbtot), "0.00")
End If
Else
TextBox11.Value = ""
Label14.Caption = ""
Label23.Caption = ""
End If

End Sub