Вставка сообщения об ошибке

Question

У меня проблема с кодом VBA, с которой я хотел бы получить помощь.

У меня есть код с 3 операторами If-Then. IF TextBox5 = 0; TextBox5 = 1; и TextBox5> 1 Мне нужно вставить сообщение об ошибке, но я не знаю, какое будет правильное расположение для каждого оператора If-Then. Сообщение об ошибке: «Нога не существует. Пожалуйста, проверьте путешественника и попробуйте снова».

Private Sub TextBox5_AfterUpdate()

On Error Resume Next
If TextBox5.Value = 0 And Not IsEmpty(TextBox5.Value) Then

   Set MyRange = ActiveWorkbook.Worksheets("Raw Data").Range("Table_Query_from_Visual654[base_id]")

   For Each c In MyRange
       If c.Value Like UCase(TextBox4.Value) Then
          If Sheet1.Cells(c.Row, 4) = TextBox5.Value Then
            TextBox13.Value = Sheet1.Cells(c.Row, 5)
            TextBox14.Value = Sheet1.Cells(c.Row, 6)
          End If
        End If
   Next
End If

If TextBox5.Value = 1 And Not IsEmpty(TextBox5.Value) Then

   Set MyRange = ActiveWorkbook.Worksheets("Raw Data").Range("Table_Query_from_Visual654[base_id]")

   For Each c In MyRange
      If c.Value Like UCase(TextBox4.Value) Then
         If Sheet1.Cells(c.Row, 4) = 0 Then         ' Set it to 0 if 1 is enetered into TextBox5
            TextBox13.Value = Sheet1.Cells(c.Row, 5)
            TextBox14.Value = Sheet1.Cells(c.Row, 6)
         End If
      End If
   Next
End If

If TextBox5.Value > 1 And Not IsEmpty(TextBox5.Value) Then

   Set MyRange = ActiveWorkbook.Worksheets("Raw Data").Range("Table_Query_from_Visual654[base_id]")

   For Each c In MyRange
      If c.Value Like UCase(TextBox4.Value) Then
         If Sheet1.Cells(c.Row, 4) = TextBox5.Value Then
            TextBox13.Value = Sheet1.Cells(c.Row, 9)
          Else
          TextBox14.Value = ""
          End If
      End If

   Next

End If
Worksheets("Cost Analysis").Range("B1").Value = UCase(TextBox5.Value)

Call TextBox6_AfterUpdate
Call TextBox9_data

End Sub