Leading zero lost in Combobox

[rdwhitney]

I can't seem to find a way to save leading zeros in my Combobox list. The zeros are necessary since they correspond to unique IDs and are formated as text in the worksheet. These unique numbers may appear more than once so I'm using this portion of the form to narrow down my selection. The source for the list is a dynamic named range. Unfortinitly if the leading zero(s) are missing from my selection in the combo box the filterd results for the next section is worthless. It works like a charm for any IDs without a leading zero.

Here's what I have. I'd appreciate any help I can get.


Private Sub UserForm_Initialize()

Dim e As Variant
Dim ws As Worksheet
Set ws = Worksheets("RepairData")
For Each e In SortArray(UniqueValues(ws.Range("SurveyTag_List")))
CB_SurveyTag.AddItem e
Next e

 

[rdwhitney]

Sorry did not mean to repost

 

[rdwhitney]

Thank you for all your help and patience Akuini. I utilized your first example and it worked perfectly.
I know the whole project needs to be cleaned up and I plan to use your second example when I sart down that road.
Thank you again.

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.