Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
        txtPhrase.Visible = False
        Phrase = UCase(Trim(txtPhrase.Text))
        Puzzle = ""
        For x = 1 To Len(Phrase)
            If Mid(Phrase, x, 1) >= "A" And Mid(Phrase, x, 1) <= "Z" Then
                Puzzle = Puzzle + "*"
            ElseIf Mid(Phrase, x, 1) = " " Then
                Puzzle = Puzzle + " "
            Else
                Puzzle = Puzzle + Mid(Phrase, x, 1)
            End If
        Next
        lblPuzzle.Text = Puzzle
    End Sub