Indexing fix

hopto-dot · Sep 13, 2020 · 6beffd4 · 6beffd4
1 parent ce7fa98
commit 6beffd4
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/Japanese Conjugation Helper/Module1.vb b/Japanese Conjugation Helper/Module1.vb
@@ -674,17 +674,16 @@ Module Module1
 
             ActualSearchWord = Left(ActualSearchWord, ActualSearchWord.Length - 8)
             Max = 0 'because we are in the "else" part of the if statement which means that the user inputted no number or 1
-            WordChoice = 0
+            WordChoice = 1
         End If                                                           'end of one word scrapping and all scrapping _______________________________________________________________________________________________________________________
 
+        'WordChoice = WordChoice - 1
+
         Dim IsCommon As Boolean
         If CommonWord(WordChoice - 1) = "True" Then
             IsCommon = True
         End If
 
-        If WordChoice = 0 Then
-            WordChoice = 1
-        End If
 
         'Building of the chosen Definition and Type arrays:
         Dim SelectedDefinition() As String = FoundDefinitions(0).Split("|")