Private Sub Command1_Click()
 
  MSFlexGrid1.Sort = 9
  Beep
 
End Sub
 
Private Sub MSFlexGrid1_Compare(ByVal Row1 As Long, ByVal Row2 As Long, Cmp As _
  Integer)
 
  Dim K As Long, Z1 As String, Z2 As String
 
  K = 1 ' Kolumne, nach der sortiert wird
  With MSFlexGrid1
    Z1 = .TextMatrix(Row1, K)
    Z2 = .TextMatrix(Row2, K)
  End With
 
  If Z1 = Z2 Then Exit Sub
 
  If Z1 < Z2 Then
    Cmp = -1
  Else
    Cmp = 1
  End If
 
End Sub

Gruss,

Zardoz