i have this code for hangman but it doesnt give me the points of each player

Module Module1
    'This program displays the word Computer as C ------ r and asks the user
    'To guess letters. Each time you correctly guess the letter appears in the corresponding position
    'Every time you make a mistake loses an opportunity-life.
    'The game ends when either guess all the letters or zero opportunities-lives of the user
    Public zoes As Byte 'The variable opportunities, lives the player has
    Public ans As String
    Public ans2 As String
    Public pointspl1 As Integer
    Public pointspl2 As Integer
    Public complete As Integer
    Public turn As String
    Public t As String

    Sub Main ()
        Do
            Console.writeline ("---------- HAngMAn ---------- ")
           
            Dim Pl1 As String
            Dim Pl2 As String
            Dim word As String 'Initialize the secret word Computer
            Dim display As String 'Create the word that appears in the user
            Dim letter As String

            console.writeline ("")
            console.writeline ("Give me the name of the first player:")
            Pl1 = console.readline ()
            console.writeline ("")
            console.writeline ("Give me the name of the second player:")
            Pl2 = console.readline ()
            Do
                console.writeline ("")
                console.writeline ("Who will give the word? (1 for player1 and 2 for player2)")
                Do
                    t = console.readline
                Loop Until t = 1 Or t = 2
                If t = 1 Then
                    turn = Pl1
                ElseIf t = 2 Then
                    turn = Pl2
                End If
                Do
                    console.writeline ("")
                    Console.WriteLine ("it's your turn player:" & turn)
                    If word <> "end" Or word <> "End" Then
                        console.writeline ("")
                        Console.Writeline ("Please enter keyword")
                        word = Console.ReadLine ()
                        display = MakeDisplay (word)
                    End If
                    zoes = Len (word) - 2 'Specify number of attempts, many lives are hidden words
                    complete = Len (word) - 2
                    Do
                        console.writeline ("")
                        Console.WriteLine ("Give a timetable for the word" & display)
                        letter = Console.ReadLine
                        Call FindLetters (word, letter, display, pointspl1, pointspl2)
                    Loop Until (word = display) Or zoes = 0 'This will be repeated until the word word be the same
                    'With the word display, ie the player to guess completely unknown word or to
                    'Life-chances are the player to run out
                Loop Until (word = display) Or zoes = 0
                console.writeline ("")
                console.writeline ("Want another match?:")
                ans = Console.ReadLine ()
            Loop Until ans = "No"
            console.writeline ("End")
            console.writeline ("points" & Pl1 & ":" & pointspl1)
            console.writeline ("points" & Pl1 & ":" & pointspl2)
            If pointspl1> pointspl2 Then
                Console.writeline ("The Winner is:" & Pl1)
            Else
                console.writeline ("The Winner is:" & Pl2)
            End If
            console.writeline ("")
            console.writeline ("Want another Game?:")
            ans2 = Console.ReadLine ()
        Loop Until ans2 = "No"
    End Sub

    Public Function MakeDisplay (ByVal w As String) As String 'He makes the word of the gallows with the intermediate paflitses
        Dim display As String, c As Byte
        display = Left (w, 1)
        For c = 2 To Len (w) - 1
            display = display & "-"
        Next
        display = display & Right (w, 1)
        Return display
    End Function

    Public Sub FindLetters (ByVal w As String, ByVal letter As String, ByRef display As String, ByVal pointspl1 As Integer, ByVal pointspl2 As Integer)
        'Looking to find the letter in the word w and sets the current display, depending
        'Also, if you do not find the character letter in the word w then reduces the lives of the player by 1
        Dim c As Byte, found As Boolean
        found = False 'flag is true when the letter letter found in the word w
        For c = 2 To Len (w) - 1
            If Mid (w, c, 1) = letter Then
                display = Left (display, c - 1) & letter & Right (display, Len (display) - c)
                'The new display is made by joining pieces: left (to position the letter letter)
                'The letter letter found and
                'The right (taking characters from the end of the word display letter by letter
                found = True
                complete = complete - 1
                If t = 1 Then
                    pointspl2 = pointspl2 + 10
                ElseIf t = 2 Then
                    pointspl1 = pointspl1 + 10
                End If
            End If
        Next
        If Not found Then
            Console.WriteLine ("")
            Console.WriteLine ("There is the letter" & letter)
            zoes -= 1
        Else
            Console.WriteLine ("")
            Console.WriteLine ("Good Guessing the letter" & letter)
        End If
        Console.WriteLine ("")
        Console.WriteLine ("Do you still" & zoes & "lives!")
        If zoes = 0 Then
            Console.WriteLine ("")
            Console.WriteLine ("Sorry you lost!")
        End If
        If complete = 0 Then
            Console.WriteLine ("")
            Console.WriteLine ("you have found the word!!")
            If t = 1 Then
                pointspl2 = pointspl2 + 50
            ElseIf t = 2 Then
                pointspl1 = pointspl1 + 50
            End If
        End If

    End Sub
End Module