Dim x As String
    Dim Largo As Long
    Dim Ancho As Long
    
    
    x = "bla bla bla bla bla bla bla bla bla bla!"
    Ancho = Printer.TextWidth(x)
    Largo = Printer.TextHeight(x)
    
    
    
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = x
    MSFlexGrid1.ColWidth(0) = Ancho + 50
    MSFlexGrid1.RowHeight(0) = Largo + 50