If Nz(Me.txtZipCode2, "") <> "" Then
If MsgBox("Add '" & Me.txtZipCode2 & "' to list?", vbYesNo, "Confirmation Required") = vbYes Then
Me.lstZipCollection.RowSource = Me.lstZipCollection.RowSource & Me.txtZipCode2 & ";"
Me.lstZipCollection.Requery
End If
End If