i think below code was used for you . here i am give space between the employee name and employee code .
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim empname As New ArrayList
Dim empcode As New ArrayList
empname.Add("arun")
empname.Add("karthick")
empname.Add("rajan")
empcode.Add("100")
empcode.Add("101")
empcode.Add("102")
For i = 0 To empname.Count - 1
ListBox1.Items.Add(empname(i) & Space(200) & empcode(i))
Next
Dim SelEmpCode As String = ""
For i = 0 To ListBox1.Items.Count - 1
SelEmpCode = ListBox1.Items(i).ToString.Substring(ListBox1.Items(i).ToString.LastIndexOf(" "))
If Trim("" & SelEmpCode) = "101" Then
ListBox1.SelectedIndex = i
End If
Next
End Sub