Suponiendo que estás usando el ListBox de VBA (ya que el de VB6 no tiene columnas), sería:
Código:
ListBox1.AddItem Codigo
ListBox1.List(ListBox1.ListCount - 1, 1) = Nombre
ListBox1.List(ListBox1.ListCount - 1, 2) = Registro
ListBox1.List(ListBox1.ListCount - 1, 3) = Ciudad