Function positions(full As String, tofind As String) As String
Dim i As Integer, j As Integer
positions = ""
j = Len(full)
For i = 1 To Len(full)
If Mid(full, i, 1) = tofind Then positions = positions & CStr(1 + j - i) & " "
Next i
End Function
Sub test()
Dim s As String
s = positions("000101101", "1")
MsgBox s
End Sub