Compañero muchas gracias, llevaba varios días buscando esta respuesta.
Así me quedo.
Código:
Dim rows As Integer = Me.gvSalida.Rows.Count
Dim i As Integer = 0
Dim c As Double = 0
Dim p As Decimal = 0
While i < rows
p = Convert.ToDouble(gvSalida.Rows(i).Cells(3).Text)
c = Convert.ToDecimal(gvSalida.Rows(i).Cells(2).Text)
Me.gvSalida.Rows(i).Cells(4).Text = c - p
i = i + 1
End While