string indexing replacement function for VB 6

Hi,
Does anyone know how to create a string and place two strings into it so they are formatted correctly. Trying to create a drop-down menu in VB6 and this is the only aspect I have difficulty with:
Have something like this using the replace function:
totalProjectDescription = "/// \\\"
changeProjectDescription = Replace(totalProjectDescription, "///", projectIVMNumber, 1, 1, vbTextCompare)
changeProjectDescription = Replace(changeProjectDescription, "\\\", projectDescription, 1, 1, vbTextCompare)
Unfortunately getting a result like this in my drop-down with incorrect spacing and unfortunately having difficulty showing this in my question (spacing removed)
I306 Millenium (spacing okay)
I307 Happy (2 characters onwards)
I324 Unhappy (4 characters onwards)
Anyone know how I can get it like:
I306 Millenium (correct spacing)
I307 Happy (correct spacing)
I324 Unhappy (correct spacing)
Is there an index replacement function in VB6?
Thanks.

Try using just this line (don't use Replace)

VB Code:

changeProjectDescription  = Trim$(projectIVMNumber) & " " & Trim$(projectDescription)

don't know why you are doing it that way, how about

VB Code:

changeProjectDescription = Replace(totalProjectDescription, "/// \\\", projectIVMNumber & " " & projectDescription, 1, 1, vbTextCompare)