I already had to change code little bit because some of the averages are "true" when tested for "IsDate".
So it's better to move If statement little bit higher:
For intColumn = 0 To intColumnCount
If graphProfile.strDisplayResultAs = "AVERAGE" Then
If IsNumeric(displayArray(intRow, intColumn) ) Then<br/>
xlsheet.Range(col(intColumn)+ CStr(intRow + intStartDataRow)).value = <br/>
CDbl( displayArray(intRow, intColumn) )
Else<br/>
xlsheet.Range(col(intColumn)+ CStr(intRow + intStartDataRow)).value = <br/>
displayArray(intRow, intColumn)
End If<br/>
Else<br/>
If Isdate( displayArray(intRow, intColumn) ) Then<br/>
xlsheet.Range(col(intColumn)+ Cstr(intRow + intStartDataRow)).value = <br/>
Cdat( displayArray(intRow, intColumn) )
<br/>
Else<br/>
xlsheet.Range(col(intColumn)+ CStr(intRow + intStartDataRow)).value = <br/>
displayArray(intRow, intColumn)
End If<br/>
End If<br/>
Next