Consegui este codigo soma a Quantidade e o Valor unitário de cada linha e mostra 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

 

Grato

Alcir

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