VBA-找不到TextBox1.Value或不正确时加载图片

Question

我绝对是VBA的新手，我正在尝试修复此代码。基本上，代码只检查TextBox1中键入的值并给出相应的值。它工作正常，但我很想拥有一个功能，当未找到Textbox1中的值时，该功能可以加载另一张图片。

Private Sub CommandButton1_Click()

Dim pfad As String, Datei As String

row_number = 0
Do
DoEvents
row_number = row_number + 1
item_in_review = Sheets("Tabelle2").Range("A" & row_number)



If item_in_review = TextBox1.Text Then

    TextBox2.Text = Sheets("Tabelle2").Range("F" & row_number)
    TextBox6.Text = Sheets("Tabelle2").Range("B" & row_number)
    TextBox7.Text = Sheets("Tabelle2").Range("G" & row_number)
    TextBox8.Text = Sheets("Tabelle2").Range("H" & row_number)
    TextBox9.Text = Sheets("Tabelle2").Range("I" & row_number)
    TextBox10.Text = Sheets("Tabelle2").Range("J" & row_number)
    TextBox11.Text = Sheets("Tabelle2").Range("K" & row_number)
    TextBox12.Text = Sheets("Tabelle2").Range("C" & row_number)

End If

Loop Until item_in_review = ""

If TextBox12.Value >= 3 Then
Image1.Picture = LoadPicture("G:\path\berechtigt.jpg")

ElseIf TextBox12.Value < 3 Then
Image1.Picture = LoadPicture("G:\path\nichtberechtigt.jpg")

End If


End Sub