try this, hope it will solve the problem

Select Case fraWhich

Case 1

strSort = "'" & crs_CoreID,crs_CourseID,Delname & "'"

strSortA = "'" &...