VSFlexGrid网格中的数据转换成双精度数据类型显示类型不匹配

Private Sub Command5_Click()
Dim Sv(7), Av(7) As Double '定义两个双精度的数组
Dim i As Long, j As Long
For i = 1 To 7 '行
    j = 2 '列起点
    While (Not IsEmpty(Form1.VSFlexGrid1.TextMatrix(i, j)))
   
         Sv(j - 1) = CDbl((Form1.VSFlexGrid1.TextMatrix(i, j))) '将单元格内的数据转换成双精度数据类型
      
        ......

上面程序，将VSFlexGrid网格中的数据转换成双精度数据类型，Sv(j - 1) = CDbl((Form1.VSFlexGrid1.TextMatrix(i, j)))显示类型不匹配,请老师修改，谢谢！

老师你好，程序经测试还是不行，可能是Form1.VSFlexGrid1.TextMatrix(i, j)表示的不是单元格数据吧...