I am having trouble getting a text box to auto fill from a choice made from a
combo box.

Combo Box Name is Address_21
Text Box Name is City_1

My code is as follows:

'Auto Fill CES Spec Written Office

Private Sub ShowCity_1()
Dim Address_21 As Variant
Dim City_1 As Variant

If UserForm1.Address_21 = "2306 Long Green Court" Then UserForm1.City_1
= Valrico
If UserForm1.Address_21 = "3440 Oakcliff Road" Then UserForm1.City_1 =
Atlanta
If UserForm1.Address_21 = "7015 East 14th Aveneue" Then UserForm1.City_1
= Tampa
If UserForm1.Address_21 = "3890 Oakcliff Industrial Court" Then
UserForm1.City_1 = Atlanta
If UserForm1.Address_21 = "1800 Taylor Drive" Then UserForm1.City_1 =
Gastonia

End Sub

What did i do wrong or miss?