MSFlexGrid1.AddItem vbTab & Trim$(Text1.Text) & vbTab & Trim$(Text2.Text)

  Dim i&
 
  With MSFlexGrid1
    For i = .FixedRows To .Rows - 1
      If Trim$(.TextMatrix(i, 1)) = "" Then Exit For
    Next i
    .TextMatrix(i, 1) = Trim$(Text1.Text)
    .TextMatrix(i, 2) = Trim$(Text2.Text)
  End With

  With MSFlexGrid1
    .Col = 1
    .Sort = flexSortNumericDescending
  End With

Gruss,

Zardoz