C# と VB.NET の質問掲示板

こんばんは。

VB.NETでテキストボックスにパスワードを作成しております。

Form1.vb

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = TextBox1.Text Then
            MsgBox("違います。")
        Else
            TextBox1.Text = My.Settings.Saq1
            MsgBox("OK")
            End If

My.Settings.Saq1の設定は
名前：sq1
種類：String
スコープ：ユーザー
値：0000と設定しました。

問題1

If TextBox1.Text = TextBox1.Text Then
            MsgBox("違います。")
        Else
            TextBox1.Text = My.Settings.Saq1
            MsgBox("OK")
            End If

このコードだと、なぜが「違います」がループ（繰り返し）されてしまいます。
0000と入力しても違います・・・と出る。

問題2

If TextBox1.Text = "" Then
            MsgBox("違います。")
        Else
            TextBox1.Text = My.Settings.Saq1
            MsgBox("OK")
            End If

この場合、適当な文字をいれるとメッセージが出ず、空白だとメッセージが出ます。
0000と入力するとOKと出ます。

やりたい事

・文字例が間違っている場合のメッセージが表示されたい
・問題1で正しいのに間違っていると表示されるのを直したい。

何処を修正・直せばよろしいでしょうか？

何度も質問してしまい、すいませんがよろしくお願い申し上げます。

環境：Vistual studio 2019

VB.Net
デスクトップ Windowsフォームです。

■No96742 (エイ さん) に返信
> 問題1
> 
> If TextBox1.Text = TextBox1.Text Then
>             MsgBox("違います。")
>         Else
>             TextBox1.Text = My.Settings.Saq1
>             MsgBox("OK")
>             End If
（略）
> やりたい事
> 
> ・文字例が間違っている場合のメッセージが表示されたい
> ・問題1で正しいのに間違っていると表示されるのを直したい。

IF の行をもう一度見直しませんか？
TextBox1.Text = TextBox1.Text は常に True となりますので。