Visual Basic - Espacios en blanco

Tengo un TEXTBOX con informacion de 4 caracteres pero quiero que el textbox que es maximo de 10 se llene de espacios en blanco, ejemplo:

En un textbox dice la palabra "PERA" y quiero que el textbox quede "PERA "

Gracias de antemano....

O sea PERA + 6 espacios en blanco???

Si es asi entonces pues el código seria así:

Dim espacios as Integer

espacios = Text1.MaxLength - Len(Text1.text)

For i = 1 To espacios
Text1.text = Text1.text & " "
Next i

(La propiedad MaxLength del textbox debe estar establecida a más de 0 si no no funciona)

Saludos!!

SERIA "PERA " , LAS 4 LETRAS Y 2 ESPACIOS EN BLANCO = A 6 ESPACIOS, SALUDOS...JULIO

Hola esta es otra forma de hacerlo:

Dim espacios As Integer
espacios = 6
Text1.Text = Text1.Text + Space(espacios)