Non ho capito bene, ma guardando gli esempi sembra che tu voglia che nella textbox ci sia un numero fisso prestabilito di caratteri, e per ottenerlo devi aggiungere dei _ (underscore) alla fine, giusto?
Se è così devi ottenere il numero dei caratteri underscore da aggiungere e aggiungerli al testo:
Dim NumberChars As Integer = (x - Textbox1.Text.Length)
For temp As Integer = 0 To NumberChars
Textbox1.Text = Textbox1.Text & "_"
Next