Accessing XL Data in VariantArray

[Smithy888]

I have the following code and am trying to get a range of data in an xl file and put into an array, so I can then analyse it. The array says it is not empty, but how can I see the data as the app fails if I try to show it even if i use vartostr?

[var
arrData : variant;
Range : OLEVariant;
i,j : integer;
SheetName : string;
begin
  SheetName := 'FCastVolcs';
  arrData := VarArrayCreate([1,1,1,1],varvariant);
  Range := WBk.Worksheets[SheetName].Range[WBk.Worksheets[SheetName].cells[1,1],
                                  WBk.Worksheets[SheetName].cells[1,1]];
  arrData := Range.value;
  if varisempty(arrData) then
  showmessage('empty')
  else
  showmessage('not empty');

  showmessage(arrData[1,1]);//FAILS HERE. HOW CAN I SEE DATA]

Many thanks
Paul