Function WorkSheetSample()

Code = Split (Project.Variables.Sysgencode,":")

Project.Variables.VariableByName("Worksheet").WSName(Project.Variables.TempVar) = Trim (Code(1))

End function