VBA: Kopiere bibliotek ud fra første 4 tegn

Hej

Har følgende opgave der ønskes løst:

Bibliotek der er oprettet som "xxxx bla. bla"

Ønskes kopieret eller flyttet til ny lokation. De første fire tegn er unikke, og de resterende tegn kan jeg ikke være sikker på jeg kender på forhånd.

Jeg kan godt flytte med dette her (eksempel) som jeg tidligere er blevet hjulpet med:

Private Sub kopierMappe()
Const fraMappeNavn = "C:\glFilmappe"      'tilpasses
Const tilMappeNavn = "C:\nyFilMappe"      'tilpasses
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.moveFolder fraMappeNavn, tilMappeNavn

End Sub

Nogen forslag??

Mvh Carsten