Msgbox al no hallar un valor

Necesito que salga un Msgbox si no encuentra un valor en mi base de datos. Adjunto código.

Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "" Then Exit Sub
Me.ListBox1.Clear
j = 1
Filas = Range("a1").CurrentRegion.Rows.Count
For i = 2 To Filas
    If LCase(Cells(i, j).Offset(0, 0).Value) Like "*" & LCase(Me.TextBox1.Value) & "*" Then
        Me.ListBox1.AddItem Cells(i, j)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 2)
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 3)
    Else
    End If
Next i
'Contador de item de listbox
For x = 0 To ListBox1.ListCount - 1
If ListBox1.List(x, 0) <> "" Then
m = m + 1
End If
Next
TextBox2.Value = m
Exit Sub
End Sub