Private Sub TextBox1_Enter()
With TextBox1
.Value = ""
.Height = ComboBox1.Height
Me.Height = .Height + 36
End With
ComboBox1 = ""
ComboBox1.SetFocus
End Sub
Private Sub ComBoBox1_Change()
If ComboBox1.ListIndex = -1 Then ComboBox1 = "": Exit Sub
With TextBox1
.AutoSize = False
.Value = ComboBox1
.AutoSize = True
.Width = ComboBox1.Width - 12
.AutoSize = False
Me.Height = .Height + 36
End With
End Sub