Dim input As Dictionary Dim output As Dictionary(Of String, Object) output = CType(input, Dictionary(Of String, Object))