Non ho capito con precisione cosa vuoi fare, ma i CAP di Roma sono solo 90, e le vie solo 15000, non ti occorre nulla, in VB6 puoi passare mezza giornata a scrivere un codice, in VB.Net si fa in 5 minuti, e l'ho fatto:
Imports System.IO
Public Class Form1
Dim CAP As List(Of String)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CAP = File.ReadAllLines(Path.Combine(Application.StartupPath, "CAPRoma.txt")).ToList
RichTextBox1.Lines = CAP.ToArray
For rig = 0 To CAP.Count - 1
Dim iCAP As String = CAP(rig).Substring(0, 5)
If Not ListBox2.Items.Contains(iCAP) Then ListBox2.Items.Add(iCAP)
Next
Me.Text = "Roma vie totali = " & CAP.Count & " CAP totali = " & ListBox2.Items.Count
End Sub
Private Sub Cerca_Click(sender As Object, e As EventArgs) Handles Cerca.Click
ListBox1.Items.Clear()
For rig = 0 To CAP.Count - 1
If CAP(rig).ToUpper.Contains(TextBox1.Text.ToUpper) Then ListBox1.Items.Add(CAP(rig))
Next
End Sub
Private Sub ListBox2_Click(sender As Object, e As EventArgs) Handles ListBox2.Click
TextBox1.Text = ListBox2.SelectedItem
End Sub
End Class
Il file testo CAPRoma.txt, l'ho creato in due minuti, è aggiornabile e correggibile con NotePad.