imports System
imports System.Text
imports System.Security.Cryptography

public module MyModule
	sub Main
		Dim sa As SymmetricAlgorithm = SymmetricAlgorithm.Create("TripleDES")
		sa.GenerateKey()
		sa.GenerateIV()
        
		Console.WriteLine("Key: " & Convert.ToBase64String(sa.Key))
		Console.WriteLine("IV: " & Convert.ToBase64String(sa.IV))
		Console.ReadLine 'so you can see the output
	end sub
end module