'Esta Rutina permite tener en una sola parte la logica de limpiar la o las grillas que existan en un proyecto
Public Sub Limpiar_Grilla(ByRef Grilla As MSHFlexGrid, ByRef Fila As Integer, ByRef Columna As Integer)
Dim Col As Integer
    With Grilla
        .Rows = Fila + 1
        For Col = Columna To .Cols - 1
            .TextMatrix(Fila, Col) = Empty
        Next
    End With
End Sub