Sub
test()
meinText = getUniqueCharString(
"aans003"
)
MsgBox meinText
End
Sub
Function
getUniqueCharString(text
As
String
)
If
Len(text) = 1
Then
getUniqueCharString = text
Else
For
i = Len(text)
To
2
Step
-1
If
InStrRev(text, Mid(text, i, 1), i - 1) > 0
Then
Mid(text, i, 1) =
" "
Next
i
getUniqueCharString = Replace(text,
" "
,
""
)
End
If
End
Function