Hat vielleicht jemand einen Lösungsansatz ?

Sicher.    

Sub Linkadd()

    Const sPfad = "F:\Test\"
    
    MkDir sPfad & Range("B2").Value
    MkDir sPfad & Range("B2").Value & "\" & "x"
    MkDir sPfad & Range("B2").Value & "\" & "y"
    
    Range("B2").Hyperlinks.Add _
                       Anchor:=Range("B2"), _
                       Address:=sPfad & Range("B2").Value, _
                       ScreenTip:="Link zu " & Range("B2").Value, _
                       TextToDisplay:=Range("B2").Value
    
    
End Sub