Add the three values in the query that's used for the RowSource of the combo and set the ColumnCount of the combo to 3. You can then address the value in each column of the selected row with the syntax:
Value = Combo.Column(x)
Where x is the index of the column, knowing that the first (leftmost) column is Column(0).
Here (change the names used here by the actual names in your project):
Private Sub Form_Open(Cancel As Integer)
.ColumnCount = 3
.ColumnWidth = "2200;0;0" ' Adjust to your needs.
.RowSource = "SELECT Description, Family, Area FROM TableName;"
.AfterUpdate = "[Event Procedure]"
Private Sub ComboName_AfterUpdate()
Me.Text_Family.Value = Me.ComboName.Column(1)
Me.Text_Area.Value = Me.ComboName.Column(2)