Caesar cipher

'https://rosettacode.org/wiki/Caesar_cipher
Imports System
Module Program
    Sub Main()
        Dim byKey As Byte = 3
        Dim byCount As Byte
        Dim sCeasar As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim sString As String = "The five boxing wizards jump quickly"
        Dim sCoded As String = ""
        Dim sTemp As String = ""

        For byCount = 1 To Len(sString)
            If Mid(sString, byCount, 1) = " " Then
                sCoded &= " "
                Continue For
            End If
            sTemp = Mid(sCeasar, InStr(sCeasar, Mid(UCase(sString), byCount, 1)) + byKey, 1)
            If Asc(Mid(sString, byCount, 1)) > 96 Then sTemp = Chr(Asc(sTemp) + 32)
            sCoded &= sTemp
        Next

        Console.WriteLine(sString & Environment.NewLine & sCoded)

    End Sub
End Module