How to get the values of Textbox

below is my row updating code i want to save the cdcComments which is stored here in txtCDCComments i have declare a global variable and assign the txtCDCcomments to that variable , but remember this variable is global on page and when i am gettting its value in another function it loses its value may b due to gridview.editindex=-1 or something else i want to use that variable in my email function and pass it as body Private Sub grdUserReport_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles grdUserReport.RowUpdating ' Dim row As GridViewRow = DirectCast(grvSample.Rows(e.RowIndex), GridViewRow) Dim city As String = TryCast(grdUserReport.Rows(e.RowIndex).FindControl("ddlStatus"), DropDownList).SelectedItem.Text Dim rowIndex As Integer = e.RowIndex Dim row As GridViewRow = grdUserReport.Rows(rowIndex) ' Dim tx1 As TextBox = CType(grdUserReport.Rows(e.RowIndex).FindControl("txtCDFCOmments"), TextBox) Dim txtCDCComments As String = CType(grdUserReport.Rows(e.RowIndex).FindControl("txtCDCComments"), TextBox).Text CDCComments = txtCDCComments Dim txtCDFID As String = CType(grdUserReport.Rows(e.RowIndex).FindControl("litdfid"), Literal).Text 'Dim txtCDFName As String = CType(grdUserReport.Rows(e.RowIndex).FindControl("txtCDCComments"), TextBox).Text 'Dim txtYear As String = CType(grdUserReport.Rows(e.RowIndex).FindControl("txtCDCComments"), TextBox).Text 'Dim txtQuarter As String = CType(grdUserReport.Rows(e.RowIndex).FindControl("txtCDCComments"), TextBox).Text 'Dim txtVillage As String = CType(grdUserReport.Rows(e.RowIndex).FindControl("txtCDCComments"), TextBox).Text 'Dim txtQuestionID As String = CType(grdUserReport.Rows(e.RowIndex).FindControl("txtCDCComments"), TextBox).Text 'Dim dt As DataTable = DirectCast(Session("tblDoctorFeatureTable"), DataTable) Dim cnnEditDoctorLocale As SqlConnection = Nothing Dim cmdEditDoctorLocale As SqlCommand = Nothing Dim drEditDoctorLocale As SqlDataReader = Nothing Try cnnEditDoctorLocale = New SqlConnection(AppSettings("DbSqlPortal")) cmdEditDoctorLocale = New SqlCommand("UpdateCDFRecords", cnnEditDoctorLocale) cmdEditDoctorLocale.CommandType = CommandType.StoredProcedure With cmdEditDoctorLocale.Parameters .Add("@AnswerID", SqlDbType.BigInt).Value = CInt(grdUserReport.DataKeys(row.RowIndex).Value) EditRowindex = CInt(grdUserReport.DataKeys(row.RowIndex).Value) GetDetialsForAnswer(CInt(grdUserReport.DataKeys(row.RowIndex).Value)) .Add("@CDF_Comments", SqlDbType.NVarChar).Value = CDFCommenets .Add("@CDFID", SqlDbType.TinyInt).Value = CDF_ID .Add("@CDFName", SqlDbType.NVarChar).Value = CDFName .Add("@ReprotingName", SqlDbType.NVarChar).Value = ReportingName .Add("@Quarter", SqlDbType.TinyInt).Value = Quarter .Add("@Year", SqlDbType.TinyInt).Value = Year .Add("@UserTypes", SqlDbType.TinyInt).Value = UserType .Add("@CommunityCodes", SqlDbType.TinyInt).Value = Communitycodes .Add("@Status", SqlDbType.Char).Value = city .Add("@CDCComments", SqlDbType.NVarChar).Value = txtCDCComments Session("CDCCommenets") = txtCDCComments .Add("@VillagesId", SqlDbType.SmallInt).Value = CInt(ddlVillages.SelectedValue) .Add("@IsActive", SqlDbType.Bit).Value = Active End With cnnEditDoctorLocale.Open() drEditDoctorLocale = cmdEditDoctorLocale.ExecuteReader(CommandBehavior.SingleRow) 'DisplayDoctorFeatures() 'loadDoctorFeaturesGrid() SearchReportUser() Catch End Try If (city.Trim() = "R") Then hdnCDFID.Value = txtCDFID.Trim() GetEmailAddressOfCDFUsers(txtCDFID.Trim()) SendEmailRejectionToPuCDF() DisplayMessage(Me.Master.MessageBox, "CDF Record Rejected.", "Record Rejected", MessageBoxTypes.Information) ElseIf (city.Trim() = "A") Then hdnCDFID.Value = txtCDFID.Trim() EmailApprovalRecordToPuCDF() DisplayMessage(Me.Master.MessageBox, "CDF Record Accepted.", "Record Accepted", MessageBoxTypes.Information) End If grdUserReport.EditIndex = -1 'loadDoctorFeaturesGrid() SearchReportUser() End Sub