Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Option Explicit
Dim shift As Integer
________________________________
Private Sub Command1_Click()
Dim strtext As String
Dim strchars() As String
Dim tempstr As String
Dim i As Integer
shift = 30
If RichTextBox1.Text <> "" Then
strtext = RichTextBox1.Text
'Debug.Print strtext(1)
ReDim strchars(Len(strtext))
For i = 1 To Len(strtext)
strchars(i) = UCase(Mid(strtext, i, 1))
Next i
For i = 1 To UBound(strchars)
tempstr = tempstr & Chr((((((Asc(strchars(i)) Mod 65) + 1) + (shift Mod 26)) Mod 26) + 64))
Next i
RichTextBox1.Text = tempstr
End If
End Sub
______________________________________
Private Sub Command2_Click()
Dim strtext As String
Dim strchars() As String
Dim tempstr As String
Dim i As Integer
If RichTextBox1.Text <> "" Then
strtext = RichTextBox1.Text
ReDim strchars(Len(strtext))
For i = 1 To Len(strtext)
strchars(i) = UCase(Mid(strtext, i, 1))
Next i
For i = 1 To UBound(strchars)
tempstr = tempstr & Chr((Asc(strchars(i)) - (shift Mod 26)))
Next i
RichTextBox1.Text = tempstr
End If
End Sub