请教 vb2005 textbox 批量处理问题

目前有两组textbox控件，共24个。分为两组 TEXTBOX_RN_[1] ~~ TEXTBOX_RN_[12]
                                    TEXTBOX_RD_[1] ~~ TEXTBOX_RD_[12]
现在想用一个函数来实现此功能：举例 如果RD[1],和RD[5]文本框值有改变，就将RN[1],RD[1]   RN[5],RD[5]的text数据提出
并转换为16进制。目前我采用的方法是单独控制，程序太长了。想简化，希望各位高手能帮帮忙，谢谢了！这个是我目前使用代码
    '寄存器地址设置部分
    Private Sub TextBox1regnumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1regnumber.TextChanged
        Dim reg1data As String
        reg1data = TextBox1regnumber.Text
        RN1_H = TansData_h(TextBox1regnumber.Text)
        RN1_L = tansdata_l(TextBox1regnumber.Text)
    End Sub '寄存器数据设置部分代码
    Private Sub TextBox1regdate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1regdate.TextChanged
        Flag_Reg_DT_1 = True
        RD1_H = TansData_h(TextBox1regdate.Text)
        RD1_L = tansdata_l(TextBox1regdate.Text)
    End Sub
希望高手赐教，谢谢！