Pasar una variable declarada en un private sub a otro private sub

[klaudio83]

La verdad, no entendi lo que me dijiste Peterpay, Si me pudieses explicar de otra manera porfavor.

Neo101, no utilizo function por que son los eventos predeterminados al accionar el control del designer. Por lo tanto no creo que me sea de mucha utilidad utilizar funcion.
Para explicar de mejor manera el contexto en el que me encuentro, voy a poner el codigo que involucra la consulta.

Código:

Private Sub ver_cliente_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim conexion As New SqlConnection(cadena)
               Dim MiAdapter As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM cliente", conexion)
        Dim MiDataSet As New DataSet
        MiAdapter.Fill(MiDataSet)
        Dim dt As New DataTable
        Dim dr As DataRow
        dt = MiDataSet.Tables(0)
'ACA DECLARO LA VARIABLE QUE ME INTERESA ENVIAR AL OTRO Private Sub
'QUE LO PONGO A CONTINUACION
        Dim index As Integer
        For index = 0 To dt.Rows.Count - 1
'EL VALOR QUE CONTIENE EL INDEX, ES EL QUE QUIERO ENVIAR
            dr = dt.Rows(index)
            If retornoCodigo = dr(0) Then
                 txCodigo.Text = dr("cod_cli")
            End If
        Next     
    End Sub

Código:

Private Sub siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles siguiente.Click
        Dim conexion As New SqlConnection(cadena)
        Dim MiAdapter As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM cliente", conexion)
        Dim MiDataSet As New DataSet
        MiAdapter.Fill(MiDataSet)
        Dim dt As New DataTable
        Dim dr As DataRow
           
        dt = MiDataSet.Tables(0)
        Dim fila As Integer 
'ACA ES DONDE ME INTERESA QUE LA VARIABLE fila TOME EL VALOR DE index QUE 'ESTA EN EL OTRO Private Sub
        dr = dt.Rows(fila)

        txCodigo.Text = dr("cod_cli")
        max = dt.Rows.Count - 1
        If fila = max Then
            siguiente.Enabled = False
        End If
        fila = fila + 1
    End Sub

Espero sirva, para que se comprenda de mejor manera la consulta y el contexto tambien.
Eso muchas gracias Por sus respuestas