Run time syntax error

[Brian]

Hi,

Does anyone know why the following piece of code is giving me a run syntax error message....the code compiles fine, but doesnt work at run time. the start of the Function is where the error occurs...
taking this piece of code out of the function works fine also

Code:

For thecounter = 2 to theEnd

Select Case vKey

               Case "PartySegment"
        call fCreateSegmentBlock ( vPartySegmentOpen, vPartySegmentClose, vRowCnt )
                
               Case "MortgageInsuranceSegment"
        call fCreateSegmentBlock ( vMortgageSegmentOpen, vMortgageSegmentClose, vRowCnt )
        
End Select

Next


Function fCreateSegmentBlock (rowStart, rowFinish, arraySize)

    ReDim vArray(arraySize)
    ....do something
    ....
    ....
          

End Function

Thanks in advance for any help,
Brian