dos operaciones en un mismo grid

[guillebomtrasmiti]

hola, quería restar un porcentaje y a la vez multiplicar el resultado por 1,18....pero no me sale, lo intento así

Public Sub restadto()
If RPorceUnitario.Checked Then
If CDbl(TextIva.Text) = 18 Then
TextTotalLinea.Text = CStr((Val(TextPrecio.Text) * 1.18))
End If
TextTotalLinea.Text = CStr(Val(TextPUnid.Text) * Val(TextDto.Text) / 100)
End If
End Sub

[guillebomtrasmiti]

vale lo he conseguido...ahora lo que me sucede es lo siguiente, tengo un precio imaginaros 25 euros...le hago un descuento del 10% y necesito que en un textbox me salga la resta de este descuento que pone el cliente, pero me lo pone en negativo, en vez de 22,5 me pone -22,5 el código es este;

TextTotalLinea.Text = CStr((Val(TextPrecio.Text) * Val(TextDto.Text) / 100 - (Val(TextPrecio.Text))))