シーザー暗号を生成するVBAのサンプルコード

Option Explicit
Sub ボタン1_Click()
    'シフト数
    Dim shiftNum As String
    shiftNum = Range("A2").Value
    '平文(小文字）
    Dim inputText As String
    inputText = LCase(Range("B2").Value)
   
   '暗号文
    Dim outputText As String
    '一時変数
    Dim inputCharNum As Integer
    Dim i As Long
    Dim newCharNum As Integer
    
    '1文字ずつループする
    For i = 1 To Len(inputText)
        
        'Unicode文字セットを取得する
        inputCharNum = AscW(Mid(inputText, i, 1))
        
        Select Case True
            Case inputCharNum >= AscW("a") And inputCharNum <= AscW("z")
                'シフト数前の値を取得する
                newCharNum = inputCharNum - shiftNum
                
                If newCharNum < AscW("a") Then
                    'Unicode文字がa-zの範囲外の場合、a-zの文字数(26文字)を加算する
                    newCharNum = newCharNum + (AscW("z") - AscW("a") + 1)
                End If
            
            Case inputCharNum = AscW(",") Or inputCharNum = AscW(".") Or inputCharNum = AscW(" ") Or _
                    inputCharNum = AscW(vbCr) Or inputCharNum = AscW(vbLf)
                'カンマ、ピリオド、スペース、改行コード（CR、LF)を無視する
                newCharNum = inputCharNum
                
            Case Else
                'エラー処理
                MsgBox ("英字以外の文字が入力されています")
                Range("C2").Value = Empty
                Exit Sub
                
        End Select
                
        '文字列として結合する
        outputText = outputText + ChrW(newCharNum)
        
    Next
    '暗号文の出力
    Range("C2").Value = outputText
    MsgBox ("暗号化しました")
End Sub