VS 2010 Can't get Boolean working

I've got an encryption/decryption task and I put the option to decrypt in if the user press' 1, however this isn't working,
I've attached my code and put the boolean part in bold.
Your help would be much appriciated, thanks!

Module Module1

Sub Main()
Dim i As Long
Dim sMessage As String
Dim EncryptionKey As Long
Dim Encryption As String

Console.WriteLine("Enter Message")
sMessage = Console.ReadLine()

Console.WriteLine("Enter Encryption Key")
EncryptionKey = Console.ReadLine()

Encryption = Space(Len(sMessage))
For i = 1 To Len(sMessage)
Mid(Encryption, i) = Chr(Asc(Mid(sMessage, i, 1)) + EncryptionKey)
Next

Console.Write(Encryption)
Console.WriteLine()
Console.WriteLine("Press 1 to Decrypt")
Console.ReadLine()

Dim DecryptOption As Boolean
If DecryptOption = 1 Then

Dim i2 As Long
Dim sMessage2 As String
Dim DecryptionKey As Long
Dim Decryption As String

sMessage2 = Encryption

Decryption = Space(Len(sMessage2))
For i2 = 1 To Len(sMessage2)
Mid(Decryption, i2) = Chr(Asc(Mid(sMessage2, i2, 1)) - DecryptionKey)
Next

Console.WriteLine(Decryption)
Console.ReadLine()


End If

End Sub

End Module