diff --git a/BlackjackGUI/Utilities.vb b/BlackjackGUI/Utilities.vb
index 4974ae3..29ca6ab 100644
--- a/BlackjackGUI/Utilities.vb
+++ b/BlackjackGUI/Utilities.vb
@@ -2,7 +2,7 @@
     Public Shared Function Shuffle(list)
         Dim max As Integer = list.Count - 1
         Dim random As New Random()
-        For x As Integer = 0 To max
+        For x = 0 To max
             Dim rand As Integer = random.Next(0, max)
             Dim temp = list(x)
             list(x) = list(rand)
diff --git a/BlackjackGUI/game.vb b/BlackjackGUI/game.vb
index a6908be..5a05472 100644
--- a/BlackjackGUI/game.vb
+++ b/BlackjackGUI/game.vb
@@ -50,8 +50,8 @@
             playerToCheck.total = 0
             Return
         End If
-        Dim total As Integer = 0
-        Dim aceTotal As Integer = 0
+        Dim total = 0
+        Dim aceTotal = 0
         For Each card In cards
             Dim num As String = card.Item2
             If num = "K" Or num = "Q" Or num = "J" Then
@@ -184,7 +184,7 @@
         End Select
     End Function
 
-    Function CreateDeck() As List(Of Tuple(Of String, String))
+    Shared Function CreateDeck() As List(Of Tuple(Of String, String))
         Dim response As New List(Of Tuple(Of String, String))
         Dim nums As String() = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"}
         Dim suits As String() = {"Hearts", "Diamonds", "Spades", "Clubs"}