Find the position of number one and restore the corresponding letters.

Hi all,

Suppose cell has 15 characters 0 and 1,I want the letters corresponding to the position of number 1 placed together.
For details, see the sample files.
Thank you.

Use VBA:

Public Function Conve(StrText As String) As String
Dim i As Long
    For i = 1 To Len(StrText)
        If Mid(StrText, i, 1) = "1" Then Conve = Conve & ChrW(96 + i)
    Next

End Function

Answers worked properly...
Thank you both very much for your time with this, much appreciated