I have the following formula.  It works fine until I added Case 2, now I get the error:  "The ) is missing."  Any help would be greatly apprecated.

 

Global stringVar stvField13 := "";
Global stringVar stvField14 := "";
Global stringVar stvField15 := "";
Global stringVar stvField16 := "";
Global stringVar stvField17 := "";
Global stringVar stvField18 := "";
Global stringVar stvField19 := "";
Global stringVar stvField20 := "";
Global stringVar stvField21 := "";
Global stringVar stvField22 := "";
Global stringVar stvField23 := "";
Global stringVar stvField24 := "";
Global stringVar stvField25 := "";
Global stringVar stvField26 := "";
Global stringVar stvField27 := "";
Global stringVar stvField28 := "";
Local NumberVar i := 0;
Local NumberVar Savei :=0;
Local NumberVar nbvLenght := length({Po_ProviderInvoiceDetailExtensionBase.Po_AdmissionInformation});
Local NumberVar nbvLoadVar := 0;

//{Po_ProviderInvoiceDetailExtensionBase.Po_AdmissionInformation}

for i := 1 to nbvLenght Do
(
if mid({Po_ProviderInvoiceDetailExtensionBase.Po_AdmissionInformation}, i, 1)="-" then
(
nbvLoadVar := nbvLoadVar+1;
savei := i;
Select nbvLoadVar
   Case 1:
      stvField13 := left(left({Po_ProviderInvoiceDetailExtensionBase.Po_AdmissionInformation},i-1)+space(3),4);
   Case 2:
      savei := i;
      );
);

stvField13;

I am still not doing something right.