Siccome la stringa è molto lunga, ti consiglio di usare una variabile di tipo String e fare concatenazioni "a pezzetti", ossia:
Dim strPath As String
strPath = "\\Server\z\01_GESTIONE AZIENDA\COMMESSE\" & CStr(anno)
strPath = strPath & "\C_" & Left([txt_numero_commessa], 4) & "-" & Right([txt_numero_commessa], 4) & " " & ([ragione_sociale]) & "-" & ([riferimento])
Application.FollowHyperlink strPath
Il backslash \ prima di C ce l'ho messo io ipotizzando che tutta quella "pappardella" sta sotto la cartella dell'anno.