¿No manda folio captura en la macro de excel?

hola buen dia.

tengo una macro en excel que busca un numero folio X, en la macro tengo un commandbutton, un textbox y un listbox, cuando insertar o capturas el folio x en la caja de texto y le das clic al botón lo busca, incluso si no capturan nada manda un MsgBox "Teclee un Folio." que si lo hace, lo que quiero es que cuando teclee un folio que no se encuentre capturado mande el mensaje MsgBox "No se encuentra capturado el Folio." lo cual también lo hace el problema es que cuando teclee un folio existente también me manda el mensaje MsgBox "No se encuentra capturado el Folio." lo cual no debe hacer si no mostrarme el folio en el listbox que esta capturado.

anexo código de búsqueda y muestra del folio:

If Me.TextBox13.Value = "" Then
MsgBox "Teclee un Folio.", vbExclamation, "EXCELeINFO"
TextBox13.SetFocus
Exit Sub
Else
Me.ListBox1.Clear
j = 1
For i = 1 To 10000
If Cells(i, j).Offset(0, 2).Value = Val(Me.TextBox13.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)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 4)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 5)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 6)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 7)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Cells(i, j).Offset(0, 8)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 9) = Cells(i, j).Offset(0, 9)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 14)
Else
MsgBox "No se encuentra capturado el Folio.", vbExclamation, "EXCELeINFO"
TextBox13.SetFocus
Exit Sub
End If
Next i
End If