In der Sub Vs_info() scheint ein "end if" zu fehlen, nach mahr hab ich nicht geschaut, aber das wäre ein Grund für die Fehlermeldung

Gruß MeckPommER