clear cache in ASP.NET VB.NET

Private Sub ClearCache()
        For Each CacheKey As DictionaryEntry In Cache
            If CacheKey.Key.GetType.Equals(GetType(System.String)) Then
                Dim MyKey As String = CacheKey.Key
                    Cache.Remove(CacheKey.Key)
            End If
        Next
End Sub

more...