With MSFlexGrid1
  .Redraw = False
  .ColWidth(1) = 150 * Screen.TwipsPerPixelX
  .RowHeight(1) = 30 * Screen.TwipsPerPixelY
  .TextMatrix(1, 1) = "Person@t-online.de"
  .Row = 1
  .Col = 1
  .CellFontBold = True
  .CellForeColor = RGB(27, 104, 209)
  '.CellFontUnderline = True
  .Redraw = True
End With

Gruss,

Zardoz