'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Security.Cryptography

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            Dim initVectorBytes As Byte()
            initVectorBytes = Encoding.ASCII.GetBytes("464R5DFA5DL6LE28")

            Dim saltValueBytes As Byte()
            saltValueBytes = Encoding.ASCII.GetBytes("88552299")

            Dim cipherTextBytes As Byte()
            cipherTextBytes = Convert.FromBase64String("fTEzAfYDoz1YzkqhQkH6GQFYKp1XY5hm7bjOP86yYxE=")

            Dim password As New Rfc2898DeriveBytes("fTEzAfYDoz1YzkqhQkH6GQFYKp1XY5hm7bjOP86yYxE=", System.Text.Encoding.ASCII.GetBytes("88552299"), 2)

            Dim keyBytes As Byte()
            keyBytes = password.GetBytes(CInt(256 / 8))

            Dim symmetricKey As New AesCryptoServiceProvider
            symmetricKey.Mode = CipherMode.CBC

            Dim decryptor As ICryptoTransform
            decryptor = symmetricKey.CreateDecryptor(keyBytes, initVectorBytes)

            Dim memoryStream As IO.MemoryStream
            memoryStream = New IO.MemoryStream(cipherTextBytes)
            memoryStream = New IO.MemoryStream(cipherTextBytes)

            Dim cryptoStream As CryptoStream
            cryptoStream = New CryptoStream(memoryStream, decryptor, CryptoStreamMode.Read)

            Dim plainTextBytes As Byte()
            ReDim plainTextBytes(cipherTextBytes.Length)

            Dim decryptedByteCount As Integer
            'decryptedByteCount = cryptoStream.Read(plainTextBytes, 0, plainTextBytes.Length)
            decryptedByteCount = cryptoStream.Read(plainTextBytes, 0, 33)

            memoryStream.Close()
            cryptoStream.Close()

            Dim plainText As String
            plainText = Encoding.ASCII.GetString(plainTextBytes, 0, decryptedByteCount)

            Console.WriteLine(plainTextBytes.Length)
        End Sub
    End Module
End Namespace