DimfAsStringSubprintstr(s()AsString)Dims2()AsString,kAsStringIfUBound(s)-LBound(s)=0ThenPrintf&""&s(LBound(s))ElseFori=LBound(s)ToUBound(s)ReDims2(LBound(s)ToUBound(s)-1)Forj=LBound(s)ToUBound(s)-1Ifj<iThens2(j)=s(j)Elses2(j)=s(j+1)EndIfNextk=ff=f&""&s(i)printstrs2f=kNextEndIfEndSub