Esto podria funcionarte para el primer literal...
Uso del LEN
[aplicado al primer literal]
Cita: 'Obtienes el tamaño de la cadena
Dim TamanioCadena As Integer = Len(TextBox1.Text)
'Obtienes los caracteres de limite
Dim CaracteresSeleccionar As Integer = TxtCatacter.text
'Variable que almacenara la cadena
Dim Str As String
'Haciendo la seleccion de la cadena delimitando por el numero de caracteres seleccionados
Str = TxtUser.Text.Substring(1, CaracteresSeleccionar)
'mostrando el resultado
MsgBox(Str)