can we make a unque code of alphanumeric from text

read and make a new artistic text from my mentioned artistic text in corel file
like i have 5 or 10 name in a column of artistic text and i want a unique alphabets from those text and create another 5 or 10 name in a column of artistic. i have just 1 major requirement 1 unique code should not repeat.
basically i tried google for this but didnt get anything which took unique code from names
for example i want a unique 3 alphabet name of Corel-draw then i wrote CDR
but at that situation i get CGT something different from the name i provide

Do you simply want to give a text (=shape) an unique name?
If yes, should be this name unique within your document (might be double in a different document) or within the world?

yes right i want to give my text a simple short 3 alphanumeric code
like community will be COM, document will be DOC, coreldrawx6 will ve CD6
ill tell you where i use them
i usually works on books and each page has a brand name inside it. i just want to give a short code of that brand name as a index to the book.

If you create the shapes in one run, it's pretty easy:

Option Explicit

'Declaring a variable which is valid in this module during the runtime
Dim MyCounter As Integer

.....

Sub Main()

Dim Sh As Shape

....

'Reset the counter:
MyCounter = 0

....

'Create the first shape
Set Sh = ActiveLayer.CreateArtisticText(1, 1, "Txt1")
'name the shape with a function
Sh.Name = MyShapeName()

'repeat this as often as you want
Set Sh = ActiveLayer.CreateArtisticText(2, 1, "Txt2")
Sh.Name = MyShapeName()

....


End Sub

'This function will increase the counter and create a string conteinint the counter
Function MyShapeName() As String

MyCounter = MyCounter + 1
MyShapeName = "Txt" + Right("000" + Trim(Str(MyCounter)), 3)

End Function

If you have to do this in a document where you update from time to time a new page / layer, then you can do this with a function like this:

Function MyShapeName2() As String

Dim p As Page, l As Layer, s As Shape, Ch As String, n As Integer, MaxN As Integer

Const TxtID = "Txt"
MaxN = 0
For Each p In ActiveDocument.Pages
   For Each l In p.Layers
      For Each s In l.Shapes
         If Left(s.Name, Len(TxtID)) = TxtID Then
            n = Val(Mid(s.Name, Len(TxtID) + 1))
            If n > MaxN Then MaxN = n
         End If
      Next s
   Next l
Next p

MaxN = MaxN + 1
MyShapeName2 = TxtID + Right("000" + Trim(Str(MaxN)), 3)

End Function