Puedes hacer el cálculo recorriendo las filas con bookmark:
Dim Buscar As String
For i = 0 To DataGrid1.ApproxCount - 1
Buscar = CStr(DataGrid1.Columns(ColIndex).CellValue (DataGrid1.GetBookmark(i)))
If Len(Buscar) = 10 Then
CONSULTA (Buscar)
If balance > 0 Then
txt1.Text = Buscar
txt2.Text = balance
End If
End If
Next
Saludos, Javier J