Ejemplo con colecciones - Versión para impresión

Código:
Private estado_civil As New Collection



Public Sub Main()



  estado_civil["Ana"] = "soltera"

  estado_civil["Laura"] = "casada"

  estado_civil["Rosa"] = "viuda"

  estado_civil["Antonio"] = "soltero"

  estado_civil["Joaquín"] = "viudo"

  estado_civil["Pedro"] = "casado"



  'MostrarEstadoCivil(estado_civil)

  BuscarEstadoCivil(["soltera", "viuda"], estado_civil)



End



Public Sub MostrarEstadoCivil(cestado As Collection)



  For Each estado As String In estado_civil

    Print estado_civil.key & " está " & estado

  Next



End



Public Sub BuscarEstadoCivil(busca As String[], cestado As Collection)



  Dim indice As Integer



  For Each estado As String In estado_civil

    indice = busca.Find(estado)

    If indice <> -1 Then Print estado_civil.key & " está " & estado

  Next



End