You didn't mention, how the information is stored. But if you have numbers in your combo box and you can fetch the information with that number, you need to trap SelectedIndexChanged for the combo box:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
' Get selected VIN number
Dim ThisVINNumber As Integer
Try
ThisVINNumber = CInt(ComboBox1.Items(ComboBox1.SelectedIndex))
' Fetch information for this VIN and place it in the labels
Catch ex As Exception
' Handle exception
End Try
End Sub
Hope this gets you started. If you still have a problem, you need to tell more details about how you store your information (database, a file...)