diff --git a/LibreOffice Calc/4_libreoffice_calc.bas b/LibreOffice Calc/4_libreoffice_calc.bas
index b0d9f98..8b75487 100644
--- a/LibreOffice Calc/4_libreoffice_calc.bas	
+++ b/LibreOffice Calc/4_libreoffice_calc.bas	
@@ -1609,7 +1609,7 @@ Function NUMBERS2ARAB(Optional metin As String) As String
     ReDim NUMBERS2ARAB, NA
 End Function
 Function NUMEROLOG(ByVal metin As String, Optional tablo As String, Optional outas As Variant, Optional shadda As Variant) As Variant
-    Dim SM, S, C, D, N, sesli, sessiz, err, counter, space, hrk As Integer : NUMEROLOG = 0 : S = 0 : N = 0 : sesli = 0 : sessiz = 0
+    Dim SM, S, C, D, N, sesli, sessiz, seslit, sessizt err, counter, space, hrk As Integer : NUMEROLOG = 0 : S = 0 : N = 0 : sesli = 0 : sessiz = 0 : seslit = 0 : sessizt = 0
     Dim M, nitem, nesoohc, choosen As String : nitem = "" : err = 0 : tablo = LCase(tablo) : metin = UCase(metin)
     Select Case tablo
     Case "date"