% Dim DDsplit = New Char() dim i as integer DDsplit=Split(DateString,"-",-1) dim StartingDate as integer StartingDate=DDsplit(1) dim StartingMon as integer StartingMon=DDsplit(0) dim StartingYr as integer StartingYr=DDsplit(2) %>