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