diff --git a/PokemonGoIV/0Main.vb b/PokemonGoIV/0Main.vb
index 5a5bf13..b0eedec 100644
--- a/PokemonGoIV/0Main.vb
+++ b/PokemonGoIV/0Main.vb
@@ -89,7 +89,7 @@ Function fnFindIV ( _
 	Dim fLevel As Double, nStamina As Integer
 	Dim nAttack As Integer, nDefense As integer
 	Dim nI As Integer, nJ As Integer
-	Dim fStep As Double, nN As Integer, nMaxLevel As Integer
+	Dim fStep As Double, nN As Integer, fMaxLevel As Double
 	
 	If aQuery.sPokemonId = "" Then
 		fnFindIV = maIV
@@ -114,9 +114,9 @@ Function fnFindIV ( _
 		Next nI
 	End If
 	nN = -1
-	nMaxLevel = aQuery.nPlayerLevel + 1.5
-	If nMaxLevel > 40 Then
-	    nMaxLevel = 40
+	fMaxLevel = aQuery.nPlayerLevel + 1.5
+	If fMaxLevel > 40 Then
+	    fMaxLevel = 40
 	End If
 	For fLevel = 1 To UBound (mStardust) Step fStep
 		If mStardust (CInt (fLevel - 0.5)) = aQuery.nStardust Then
@@ -138,7 +138,7 @@ Function fnFindIV ( _
 								End With
 								If aQuery.nPlayerLevel <> 0 Then
 									maIV (nN).nMaxCP = fnCalcCP ( _
-										aBaseStats, nMaxLevel, _
+										aBaseStats, fMaxLevel, _
 										nAttack, nDefense, nStamina)
 								End If
 								maIV (nN).maEvolved _
@@ -153,7 +153,7 @@ Function fnFindIV ( _
 										maIV (nN).maEvolved (nI).nMaxCP _
 										    = fnCalcCP ( _
 										    maEvBaseStats (nI), _
-										    nMaxLevel, nAttack, _
+										    fMaxLevel, nAttack, _
 										    nDefense, nStamina)
 									End If
 								Next nI
diff --git a/VERSION b/VERSION
index 8f0916f..4b9fcbe 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.5.0
+0.5.1
diff --git a/oxt/PokemonGoIV/0Main.xba b/oxt/PokemonGoIV/0Main.xba
index d107f06..dd464a0 100644
--- a/oxt/PokemonGoIV/0Main.xba
+++ b/oxt/PokemonGoIV/0Main.xba
@@ -91,7 +91,7 @@ Function fnFindIV ( _
 	Dim fLevel As Double, nStamina As Integer
 	Dim nAttack As Integer, nDefense As integer
 	Dim nI As Integer, nJ As Integer
-	Dim fStep As Double, nN As Integer, nMaxLevel As Integer
+	Dim fStep As Double, nN As Integer, fMaxLevel As Double
 	
 	If aQuery.sPokemonId = &quot;&quot; Then
 		fnFindIV = maIV
@@ -116,9 +116,9 @@ Function fnFindIV ( _
 		Next nI
 	End If
 	nN = -1
-	nMaxLevel = aQuery.nPlayerLevel + 1.5
-	If nMaxLevel &gt; 40 Then
-	    nMaxLevel = 40
+	fMaxLevel = aQuery.nPlayerLevel + 1.5
+	If fMaxLevel &gt; 40 Then
+	    fMaxLevel = 40
 	End If
 	For fLevel = 1 To UBound (mStardust) Step fStep
 		If mStardust (CInt (fLevel - 0.5)) = aQuery.nStardust Then
@@ -140,7 +140,7 @@ Function fnFindIV ( _
 								End With
 								If aQuery.nPlayerLevel &lt;&gt; 0 Then
 									maIV (nN).nMaxCP = fnCalcCP ( _
-										aBaseStats, nMaxLevel, _
+										aBaseStats, fMaxLevel, _
 										nAttack, nDefense, nStamina)
 								End If
 								maIV (nN).maEvolved _
@@ -155,7 +155,7 @@ Function fnFindIV ( _
 										maIV (nN).maEvolved (nI).nMaxCP _
 										    = fnCalcCP ( _
 										    maEvBaseStats (nI), _
-										    nMaxLevel, nAttack, _
+										    fMaxLevel, nAttack, _
 										    nDefense, nStamina)
 									End If
 								Next nI
diff --git a/oxt/PokemonGoIV/8Width.xba b/oxt/PokemonGoIV/8Width.xba
index 4701a46..e4c19f6 100644
--- a/oxt/PokemonGoIV/8Width.xba
+++ b/oxt/PokemonGoIV/8Width.xba
@@ -19,7 +19,7 @@
 
 Option Explicit
 
-&apos; subTestWidth: Tests the width of the dialog text
+&apos; subTestWidth: Tests the width of the dialog text.
 Sub subTestWidth
 	Dim oDialog As Object, oDialogModel As Object
 	Dim oTextModel As Object, oListModel As Object