I use this which has works for me for more years than I really want to admit to ;)
Dim FS
Dim StrExt As String, Ext As String
Dim StrExtShort As String, BasFolder As String
Dim AZ As Boolean
On Error GoTo HandleErr
StrExtShort = "\" & StrArt
StrExt = Trim(DLookup("ArtistsFolder"...