diff --git a/LibreOffice Calc/4_libreoffice_calc.bas b/LibreOffice Calc/4_libreoffice_calc.bas
index 8b75487..6184e68 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, seslit, sessizt err, counter, space, hrk As Integer : NUMEROLOG = 0 : S = 0 : N = 0 : sesli = 0 : sessiz = 0 : seslit = 0 : sessizt = 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"
@@ -2850,4 +2850,4 @@ Function WORDBYWORD(ByVal klmmetin As String, Optional tablo As Integer, Optiona
     Next
     ReDim word, calculation, content
     WORDBYWORD = content
-End Function
\ No newline at end of file
+End Function