SZDD'3A Function TrimZeroTerm$ (S$) 's a null tinated string that has junk 4the end. e.g. S$ = "foobar" + chr$(0)^d"Thi9" P-t  gives output:| ] Dim Temp As S,NSpotIntege=$(1, 0 = ,If~0 Then $ElseTdLeft$0- 1End?y Sub ShiftRight (A(), Fi{rs , La* Bpart ofBarray specifi^(1 toBr J' t9&_%|#k$index5%}f"eleme^O be seIa#"-Cl!-%ri For !ToStep -1yA(id1)Y80ext-# ''C'reg6*M&l[-k-{------"M--8<3< 2O~4= 2I5301.;@=P=Minm0r:B+JA@B CQ@tHTBQ5PadToWord zP3,?with zsP!4it@ts @loQPsF@Len(S) M od@=L PzV d r[ResetLB (C\`ControlG|MVsV?isibleY`b.djAALSEM1PP"`Li?stCounHcRemoveItem 0KmafMCom1 ez1, S2\ h`\r0wo*s0xicographicallyD3raSPdp 2:1UyY={u<}y<|>}y>`{Per7ensr(<)OT|`ƒPExP0yu>!12GWg声A iX(ӥlP@=Mu@|