Hola, claro que se puede, mira este ejemplo

Private Sub Form_Load()
    Text1.MaxLength = 10
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Len(Text1.Text) = Text1.MaxLength Then
        Text1.Text = Mid$(Text1.Text, 2)
        Text1.SelStart = Len(Text1.Text)
    End If
End Sub

El límite de la programación siempre viene dado por la imaginación que tengas..

saludos!!

mod: lo entendi al reves jajaja para eso solo invierte la extracción, chao ..

Se refiere a que tu tienes un textbox asi:

Hay 100 caracteres:

111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111xxxxxxxxxx

El se refiere que cuando pulsas otros caracteres, por ejemplo: 4e7jfg


4e7jfg111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111xxxx

Se borren los del final que no caben y se metan esos en el principio.

No se si he hecho bien los esquemas pero espero que capteis la idea.

No te anda por que lo tienes en un command, y cuando apretas el programa que tienes , es decir de plano es el programa. Pon un time con el código y ves al juego.

puedes usar el Api keybd_event en vez de SendKeys :

http://www.recursosvisualbasic.com.ar/htm/listado-api/153-keybd_event-en-ves-de-sendkeys.htm

y para la tecla espacio seria:

vbKeySpace

Saludos.