REPLACE SECTION AT LINE 113 WITH THIS:
**don't save table until you test it**


If Table1.ShowDT = false then
    If IsObject(Scoretext) Then
        Scoretext.Visible = false
    End If
	UseVPMDMD = False
End If