Consegui resolver o codigo abaixo multiplica a Quantidade e o Valor unitário linha por linha do grid e coloca na coluna Valor Total
If gridEstoque.Columns(0).Text <> "" And gridEstoque.Columns(3).Text <> "" Then
For i = 0 To gridEstoque.ApproxCount - 1
gridEstoque.Row = i
strTotal = gridEstoque.Columns(0).Text * gridEstoque.Columns(3).Text
gridEstoque.Columns(4).Text = Format$(strTotal, "R$ ##,##0.00")
Next i
End If