[RESOLVED] get path

[elmnas]

Hello people,

I wrote this code to pick the absolute path

StrOldPath = ActiveDocument.Path
StrNewPath = Left(StrOldPath, InStrRev(StrOldPath, "\"))
StrOldPath = StrOldPath & "\"
StrNewPath = StrNewPath 

here is the result I recieve from the msgbox

C:\Users\xxxx\Desktop\tester\423434\

I need to make a variable of the number 423434

I need to make the number in the path to a variable could somone help me out?

Thank you in advance