Calculate Inverse Of A Matrix

I am trying to calculate the inverse of a matrix in vba here is my code, I get an error 2015 when I run my code

Function InterpolationCubique(TableauMaturites, TableauDonnees, DateCalculees, _
Optional EstFactActua As Boolean = False, _
Optional DateDeCalcul As Date)
On Error Goto zob:
Dim TabMat
'talbeau des maturites des donnes source
Dim TabData
'donnes source
Dim TabDates
'dates a calculer
Dim i As Integer, j As Integer
'variables de boucle
Dim TabRetour
'donnees renvoyees
Dim MatriceDate(4, 4)
'Matrice des coefficients des parametres
Dim MatDateInv As Variant
'Matrice inverse de MatriceDate
Dim VecTaux(4, 1)
'vecteur des donnees solutions du systeme
Dim VecParam
'vecteur des parametres calcules

' conversion des arguments en tableaux
TabMat = CTableau(TableauMaturites)
TabData = CTableau(TableauDonnees)
TabDates = CTableau(DateCalculees)
'dimensionnement du tableau de retour
Redim TabRetour(LBound(TabDates) To UBound(TabDates)).................