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

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