Saber dimensiones de una matriz de dos dimensiones

[Sergestux]

Excelente ayuda me ha servido de mucho tu aporte, ya no me acordaba cual eran las funciones, asi quedo mi codigo corregido:

Código vb:

'Rellena el Grid con los datos (Matriz) que se le pasen
Public Sub RellenaGrid(Grid As Variant, Datos As Variant)
Dim Renglon As Variant, Columna As Variant
Dim Cols As Variant, Rows As Variant
 
    Cols = UBound(Datos, 2)
    Rows = UBound(Datos)
    
    If Rows > 0 Then        'Si hay datos
        'Recorro el grid
        With Grid
            .MaxRows = Rows
            For Renglon = 1 To Rows
                .Row = Renglon
                For Columna = 1 To Cols
                    .Col = Columna
                    .Text = IIf(IsNull(Datos(Renglon, Columna)), "", Datos(Renglon, Columna))
                Next Columna
            Next Renglon
            .BlockMode = True
            .Lock = True
        End With
    End If
End Sub
 

Por cierto no es el grid estandar, si no que es un control que la empresa compro de nombre Spread 3.0