Recorrer y modificar una Hashtable

El metodo mas rapido para recorrer la hastable y modificarla es el siguiente:

Dim tablaPrueba As New Hashtable

tablaPrueba.Add(11, "Madrid")
 tablaPrueba.Add(22, "Barcelona")
 tablaPrueba.Add(3, "Valencia")
 tablaPrueba.Add(44, "Bilbao")
 tablaPrueba.Add(57, "Sevilla")

' Se crea un Array de elementos DictionaryEntry con el tamaño dela tabla a recorrer
 Dim arrayCopia(tablaPrueba.Count - 1) As DictionaryEntry

' Se copia el contenido de la tabla sobre el array que acabamos de crear
 tablaPrueba.CopyTo(arrayCopia, 0)

' Se borra completamente la tabla inicial
 tablaPrueba.clear

' Se recorre el arrayCopia con un bucle For... Next a la vez que se añaden los nuevos elementos modificados a la tabla
 For i As Integer = 0 To arrayCopia.Length - 1
 tablaPrueba.Add(arrayCopia(i).Key, "España")
 Next