Variables
Private fEnterValue As Variant
Private fNameID As Variant
Private fChangeValue As Variant
Private fSName As Variant
Textbox enter event
Private Sub freg2_Enter()
If freg3 <> "" Then fEnterValue = Trim(freg2.Text)
Select Case freg3.Text
Case "X", "Y", "Z"
For Each fSName...