BTW, the code may have written a couple of values to your registry

Private Sub SaveData(TBox, Data)
SaveSetting "TxtSelect", TBox, "Data", Data
End Sub