Silent pw entry not working

[Ra7eN]

The following code does the following
prints "*" when entering a password (scratch built) and then return the plaintext back.

Instead it returns a zero and blank text. What did I miss? thanks.

Code: (Select All)

Print "-Enter Password: "; pInput$ = silentInput$

    Print pInput$ 'DEBUG DELETE AFTER TESTING

Code: (Select All)

Function silentInput$

    Dim Txt$
    Dim KeyPress$

    Txt$ = ""
    ' GREAT FOR PASSWORDS
    Do
        Do: KeyPress$ = InKey$: Loop Until KeyPress$ > ""
        If KeyPress$ <> Chr$(13) Then
            Txt$ = Txt$ + KeyPress$
            Print "*"; ' crate a visual
        End If

    Loop Until KeyPress$ = Chr$(13)

    Print
    silentInput$ = Txt$
End Function

PS, appreciate you guys keeping the qb64 going!! thank you