Excel Vba String Variable Length Subnet