This will not work if the cell color is changed using Conditional
Formating,
Place this code in the Worksheet Module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.BackColor = Range("A1").Interior.Color
End Sub