CONVERSÃO DE VALORES. ESTORUO DE COLUNA DE INTEIRO

Private Sub txtCodigoProdutoBalcao_LostFocus(sender As Object, e As EventArgs) Handles txtCodigoProdutoBalcao.LostFocus

        If Not txtCodigoProdutoBalcao.Text = String.Empty Then
            qtdeEmEstoque()
        Else
            Exit Sub
        End If
        Dim codProd As Int64 = Int64.Parse(CLng(txtCodigoProdutoBalcao.Text))
        Dim con As New System.Data.SqlClient.SqlConnection([Ô]Data Source=SAN-PC;Initial Catalog=OBoteco;Integrated Security=True[Ô])
        Dim com As New System.Data.SqlClient.SqlCommand(String.Format([Ô]SELECT * FROM TB_Produtos WHERE idProdutos = [ô][Ô] & Val(codProd) & [Ô][ô] or CodigoBarra = [ô][Ô] & Val(codProd) & [Ô][ô][Ô]), con)
        Dim dr As System.Data.SqlClient.SqlDataReader

        Try
            con.Open()
            dr = com.ExecuteReader
            dr.Read()
            If Not dr.HasRows Then
                If txtCodigoProdutoBalcao.Text = String.Empty Then
                    Exit Sub
                Else
                    If MsgBox([Ô]Produto não cadastrado. [Ô] + vbCrLf + [Ô]Gostaria de cadastrá-lo agora? [Ô], vbQuestion + vbYesNo, [Ô]PRODUTO NÃO CADASTRADO[Ô]) = MsgBoxResult.Yes Then
                        txtCodigoProdutoBalcao.Text = String.Empty
                        txtCodigoProdutoBalcao.Focus()
                        frmProdutos.Show()
                        frmProdutos.btnNovo.PerformClick()
                    Else
                        txtCodigoProdutoBalcao.Text = String.Empty
                        txtCodigoProdutoBalcao.Focus()
                        dr.Close()
                        con.Close()
                        Exit Sub
                    End If
                End If
            Else
                txtNomeProdBalcao.Text = dr(1).ToString
                txtPrecoUnitBalcao.Text = dr(13).ToString

                Dim PrecoUnitario As Decimal = Decimal.Parse(txtPrecoUnitBalcao.Text).ToString([Ô]N[Ô], nfi)
                Dim quantidadeItem As Decimal = Decimal.Parse(txtQtdeBalcao.Text).ToString([Ô]N[Ô], nfi)
                Dim totalItem As Decimal

                totalItem = (PrecoUnitario * quantidadeItem)
                txtValorBalcao.Text = totalItem.ToString([Ô]N[Ô], nfi)

                IncluirItens(listProdBalcao, txtCodigoProdutoBalcao.Text, txtNomeProdBalcao.Text, txtPrecoUnitBalcao.Text, txtQtdeBalcao.Text, txtValorBalcao.Text)

                txtCodigoProdutoBalcao.Text = String.Empty

                dr.Close()

            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            con.Close()
        End Try

        somarQtdeItensDelivery()
        somarValorItensDelivery()
        btnExcluirProdBalcao.Enabled = True
        btnReceberBalcao.Enabled = True
        txtQtdeBalcao.Text = 1
        txtNumRegBalcao.Text = listProdBalcao.Items.Count
        txtCodigoProdutoBalcao.Focus()

    End Sub