这是我做的一个界面，我希望在点添加时，将下拉菜单的内容添加到MSFlexGrid1中去，点一次加一行，运行后本是两行，点添加后只添加空白的内容，请高手指点
我的代码如下：
With Me.MSFlexGrid1
        .Rows = Me.MSFlexGrid1.Rows + 1
        While .Rows > Me.MSFlexGrid1.Rows
       .TextMatrix(.Rows - 1, 0) = .Rows - 1
       .TextMatrix(.Rows - 1, 1) =
       .TextMatrix(.Rows - 1, 2) =
       .TextMatrix(.Rows - 1, 3) =
       .TextMatrix(.Rows - 1, 4) =
       .TextMatrix(.Rows - 1, 5) =
      Wend
    End
我的想法是运行后MSFlexGrid1行数给.rows ，判断.rows若大于MSFlexGrid1的行数则将下拉菜单的内容添加到MSFlexGrid1中去。请问要怎么实现？

Option Explicit

Dim A As Integer

Private Sub Command1_Click()
Dim i As Integer

    With MSFlexGrid1
        A = .Rows
        For i = 2 To .Cols
            .TextMatrix(A - 1, i - 1) = Controls("Combo" & i).Text
        Next i
        .Rows = .Rows + 1
    End With
End Sub

Private Sub Form_Load()
    MSFlexGrid1.Rows = 2
    MSFlexGrid1.Cols = 6
End Sub

谢谢，后来我也加了一个变量，N