Разработать программу, которая вводит слово с клавиатуры

Option Explicit
 
Private Sub Form_Click()
Dim S As String, i As Integer, S1 As String, S2 As String, S3 As String
S = "корреляция"
S1 = "": S2 = "": S3 = ""
For i = 1 To Len(S)
    If i <= 3 Then S1 = S1 & Mid(S, i, 1)
    If i > 3 And i < Len(S) - 2 Then S3 = S3 & Mid(S, i, 1)
    If i >= Len(S) - 2 Then S2 = S2 & Mid(S, i, 1)
Next
Print S2 & S3 & S1
End Sub

CLS
 
DIM S AS STRING
DIM s1 AS STRING
DIM s2 AS STRING
S = "корреляция"
 
s2 = RIGHT(S, 3)
 
FOR i = 1 TO 3
   s1 = MID(S, i, 1)
   MID(S, LEN(S) - 3 + i, 1) = s1
NEXT
 
MID(S, 1, 3) = s2
PRINT S

Option Explicit
    Dim A() As Integer
Sub Swap(A As Integer, b As Integer)
    Dim Temp As Integer
    Temp = A: A = b: b = Temp
End Sub
Sub PushBack(Arr() As Integer, b As Integer)
    On Error Resume Next
    If (Not Arr) = -1 Then ReDim Arr(0) Else ReDim Preserve Arr(UBound(Arr) + 1)
    Arr(UBound(Arr)) = b
End Sub
Function TransformS(Arr() As Integer, Optional ByVal b As Byte = 1) As String
    Dim i As Byte, j As Byte
 
    If (Not Arr) = -1 Then Exit Function Else j = UBound(Arr) - (b - 1)
    If b * 2 < UBound(Arr) Then TransformS = "Короткое слово!": Erase Arr(): Exit Function
 
    For i = LBound(Arr) To UBound(Arr)
        If i < b Then Swap Arr(i), Arr(i + j)
    TransformS = TransformS & Chr(Arr(i))
    Next
End Function
Private Sub Form_Click()
    Cls
    If Text1 = "" Then Erase A()
    Print TransformS(A(), 3)
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    PushBack A(), KeyAscii
End Sub