Dim sBuff As String
         sBuff = String(FIELD_DATA_SIZE, Chr(0)) ' set buffer
     iRet = LceGetVariable (iSession "*COMPANY", Company)
     Form.Caption = Company