From c6735e9240211eb720cb74ddd26bb05ca263edd6 Mon Sep 17 00:00:00 2001
From: Abdil <90824488+metatronslove@users.noreply.github.com>
Date: Tue, 5 Nov 2024 00:03:01 +0300
Subject: [PATCH] Update 4_ms_excel-365.bas

---
 Microsoft Excel/4_ms_excel-365.bas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Microsoft Excel/4_ms_excel-365.bas b/Microsoft Excel/4_ms_excel-365.bas
index 94c34b6..2c8c384 100644
--- a/Microsoft Excel/4_ms_excel-365.bas	
+++ b/Microsoft Excel/4_ms_excel-365.bas	
@@ -1590,7 +1590,7 @@ Function NUMBERS2ARAB(Optional metin As String) As String
     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)
     Select Case tablo
     Case "date"
@@ -2815,4 +2815,4 @@ Function WORDBYWORD(ByVal klmmetin As String, Optional tablo As Integer, Optiona
         End Select
     Next
     WORDBYWORD = content
-End Function
\ No newline at end of file
+End Function