Ввод тескта справо на лево

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 9 Then Exit Sub
If KeyAscii > 9 And KeyAscii < 32 Then Exit Sub
Text1.SelText = Chr(KeyAscii)
Text1.SelStart = Text1.SelStart - 1
KeyAscii = 0
End Sub

Private Sub Form_Load()
Text1.Alignment = 1
End Sub

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYOUTRTL = &H400000

Private Sub Form_Load()
    LayoutRTL Text1.hwnd
End Sub

Sub LayoutRTL(ahwnd As Long)
Dim lExStyles As Long
    lExStyles = GetWindowLong(ahwnd, GWL_EXSTYLE)
    lExStyles = lExStyles Or WS_EX_LAYOUTRTL
    SetWindowLong ahwnd, GWL_EXSTYLE, lExStyles
End Sub