Private Sub MSFlexGrid1_Click()
  <font color=green>' aktuellen Zelleninhalt in TextBox anzeigen</font>
  With Text1
    .Text = MSFlexGrid1.Text
    .SelStart = 0
    .SelLength = 999
    .SetFocus
  End With
End Sub