Visual Basic.NET - Mejorar codigo

Dim total As Decimal = 0D

Dim suma_articulos As String

For Each dgvr As DataGridViewRow In Me.dataalmacen.Rows

suma_articulos = "" & dgvr.Cells(9).Value

'Eliminamos los puntos

 suma_articulos = Replace(suma_articulos, ".", "")

'Reemplazamos las comas

suma_articulos = Replace(suma_articulos, ",", ".")

total += Val(suma_articulos)

Next

txt_total.Text = total.ToString("#0.00")

TotalCaja="select sum(caja) from ventas where concepto=1 "

txt_total.Text = Format(VentasTableAdapter.TotalCaja, "C")

'no entiendo por que reemplazas caracteres lo unico que tienes que hacer es dar formato al texto y listo ten en cuenta el formato de la region

'con esto das formato al datagridview 

Me.datagridview.Columns("nombredecolumna").DefaultCellStyle.Format = "n2"

n2 = dos decimales

n3 = tres decimales

'con esto das formato al texto

 TXTefectivo.Text = FormatNumber(efectivosoles, 2)

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  Try

            Dim ds As New DataSet

            Dim dtSource As DataTable

            Dim cmd As New OleDb.OleDbCommand("select c1,c2,c3 from caja", Cn)

            Dim da As New OleDb.OleDbDataAdapter(cmd)

            da.Fill(ds, "Items")

            dtSource = ds.Tables("Items")

            TXTtotalreg.Text = ds.Tables(0).Rows.Count

            Call FillGrid()

            Dim efectivosoles As Double

            For Each dr As DataRow In ds.Tables(0).Rows

                If Convert.ToString(dr(1)) = 1 Then efectivosoles += Convert.ToDouble(dr(2))

            Next

            TXTefectivo.Text = FormatNumber(efectivosoles, 2)

        Catch ex As Exception

            If Cn.State = ConnectionState.Open Then Cn.Close()

            MsgBox(ex.Message)

        End Try

------------------------------------------------------------------------------------------------------