Option Explicit

Function Vigenere(ByVal Text As String, ByVal Schlüssel As String, ByVal Verschlüsseln As Boolean)
Dim Zahl1 As Double
Dim Zahl As Double
Dim NeuerText As String
Dim Zeichen As Integer
Dim NZeichen As String


For Zahl1 = Len(Schlüssel) To Len(Text)
    Schlüssel = Schlüssel & Schlüssel
    If Len(Schlüssel) > Len(Text) Then
        Schlüssel = Mid(Schlüssel, 1, Len(Text))
    End If
Next Zahl1


For Zahl = 1 To Len(Text)

    Zeichen = Asc(Mid(Text, Zahl, 1))
    
        If Zeichen > 64 Then
            If Zeichen < 91 Then
                

                If Verschlüsseln = True Then
                Zeichen = Zeichen + (Asc(Mid(Schlüssel, Zahl, 1)) - 64)
                Else
                Zeichen = Zeichen - (Asc(Mid(Schlüssel, Zahl, 1)) - 64)
                End If
                
                If Zeichen < 65 Then
                    Zeichen = Zeichen + 26
                ElseIf Zeichen > 90 Then
                    Zeichen = Zeichen - 26
                End If
            End If
        End If
    NZeichen = Chr(Zeichen)
    NeuerText = NeuerText & NZeichen
Next Zahl

Vigenere = NeuerText
End Function

Function Caesar(ByVal Text As String, ByVal Schlüssel As Integer, ByVal Verschlüsseln As Boolean)
Dim Zahl As Double
Dim NeuerText As String
Dim Zeichen As Integer
Dim NZeichen As String
NeuerText = ""

For Zahl = 1 To Len(Text)

    Zeichen = Asc(Mid(Text, Zahl, 1))
    
        If Zeichen > 64 Then
            If Zeichen < 91 Then
                
                If Verschlüsseln = True Then
                Zeichen = Zeichen + Schlüssel
                Else
                Zeichen = Zeichen - Schlüssel
                End If
                
                If Zeichen < 65 Then
                    Zeichen = Zeichen + 26
                ElseIf Zeichen > 90 Then
                    Zeichen = Zeichen - 26
                End If
            End If
        End If
    NZeichen = Chr(Zeichen)
    NeuerText = NeuerText & NZeichen
Next Zahl

Caesar = NeuerText
End Function