
//Var
    Dim X = 0                 : Dim WW As Variant = 0    : Dim PER As Variant = 0
    Dim VAH As Variant = 0    : Dim PAH As variant = 0   : Dim VAH1 As Variant = 0
    Dim VDH As Variant = 0    : Dim REP As Variant = 0   : Dim CCR As Variant = 0
    Dim VEM As Variant = 0    : Dim VEM1 As Variant = 0  : Dim P  As Variant = 0
    Dim P1 As Variant = 0     : Dim PF As Variant = 0    : Dim PFIN As Variant = 0
    Dim C  As Variant = 0     : Dim M As Variant = 0     : Dim T As Variant = 0
    Dim A As Variant = 0      : Dim R  As Variant = 0    : Dim RC  As Variant = 0
    Dim RM  As Variant = 0    : Dim RT As Variant = 0    : Dim RA As Variant = 0
    Dim RR As Variant = 0     : Dim AAP As Variant = 0   : Dim AAS As Variant = 0
    Dim GLP As Variant = 0    : Dim GLS As Variant = 0   : Dim IBU1 As Variant = 0
    Dim IBU2 As Variant = 0   : Dim IBUF As Variant = 0  : Dim THP As Variant = 0
    Dim THS As Variant =  0   : Dim PAP As Variant = 0   : Dim PAS As Variant = 0
    Dim VALP As Variant = 0   : Dim DI As Variant = 0    : Dim DAH As Variant = 0
    Dim DF As Variant = 0     : Dim PPH as Variant = 0   : Dim IBUss as Variant = 0
	Dim IBUp = 0              : Dim IBUs = 0             : Dim RPath ="repBin"
	

