I have a Userform that has an input box and a listbox.

When the User brings up the userform they have an option of picking
something from the listbox or typing in a new value in the inputbox.

What i want to do is if there is a value in the inputbox then it disregards
anything selected in the input box.

Heres my code so far:

Private Sub CommandButton1_Click()
Set wks = Worksheets("Expense Non Amex")
Set wks1 = Worksheets("Expense Amex")

lrA = wks.Cells(Rows.Count, 1).End(xlUp).Row
lrB = wks.Cells(Rows.Count, 2).End(xlUp).Row
lrC = wks.Cells(Rows.Count, 3).End(xlUp).Row
lrE = wks.Cells(Rows.Count, 4).End(xlUp).Row
lrD = wks.Cells(Rows.Count, 5).End(xlUp).Row
wks.Range("A" & lrA + 1) = TextBox1.Text
wks.Range("B" & lrA + 1) = TextBox2.Text
wks.Range("C" & lrA + 1) = TextBox3.Text
wks.Range("E" & lrA + 1) = TextBox4.Text
wks.Range("D" & lrA + 1) = ListBox1.Text

If wks.Range("D" & lrA + 1) = "" Then
wks.Range("D" & lrA + 1) = TextBox5.Text

End If

TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub