Excel Vba If Vba7 Then