Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
objExcel.Workbooks.Add App.Path & "\Rap\arm.xls"
  n1 =  4 
For i =  0  To VSFlexGrid1.Rows -  1 
    n1 = n1 +  1 
    For n =  1  To  9 
        objExcel.Cells(n1, n).VALUE = VSFlexGrid1.Cell(flexcpText, i, n -  1 )
    Next n
Next i

VSFlexGrid1.MergeCol( 1 ) = True