Erstatte drev i VBA kode med det aktuelle drev sun en USB er tildelt

Jeg har denne kode i VBA, den fungere fint, men ikke perfekt.

Da regnearket ligger på en USB-nøgle og jeg ikke ved hvilken drev USB bliver tildelt, opstår det problem at den ikke kan finde billederne der også ligger på USB'en.

Er der en VBA kode der kan se efter hvilken drev USB'en er tildelt, så jeg kan erstatte M:\xxx med det?



Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$B$1" Then
        NewPic = "m:\Picture\" & Range("A1").Value
        Target.Comment.Shape.Fill.UserPicture NewPic
    End If


:-)