Lucas, if i want to get the mileage to appear then would i just addthis coding to it.

[VBA]
dim b
Set b = .Find(ListBox1, LookIn:=xlValues)

If Not b Is Nothing Then
TextBox2 = b.Offset(0, 2).Text
[/VBA]