Here's what I have so far. I need to Replace each digit by(the sum of the digit and 7) modulo 10. Which I did. But then, swap the first digit with the third, and the second digit with the fourth. THEN write a second program that inputs an encryped four-digit Integer and decrypts it form the original number This is what I have so far. Module Module1 Sub Main() Dim numberOne As Integer Dim encrypNumber As Integer Dim reminder As Integer Dim multiplier As Integer Console.WriteLine("Please enter a four digit number") numberOne = Console.ReadLine() encrypNumber = 0 multiplier = 1 While numberOne > 0 reminder = numberOne Mod 10 encrypNumber += multiplier * ((reminder + 7) Mod 10) numberOne = numberOne / 10 multiplier = multiplier * 10 End While Console.WriteLine("The encrypted number is: " & encrypNumber) End Sub End Module