Diagonale function in excel

diag.vb

Option Explicit
Option Base 1

Function Diag(matrix() As Variant) As Variant
    Dim i As Integer, n As Integer
    Dim D() As Variant
    n = UBound(matrix, 1)
    ReDim D(n, 1)
    For i = 1 To n
        D(i, 1) = matrix(i, i)
    Next i
    Diag = D
End Function