Extraer los 2 caracteres de un textbox

No se si es muy tarde preguntar porque veo que ya es hace rato... estoy utilizando el código pero no me funciona tengo problemas con el clipboard

Pues eso es de gran ayuda y más cuando tienes que crear usuarios, amm bueno eso lo utilice yo je je, te dejo el código para que veas aver si te sirve:
Private Sub Command1_Click()
    'Condicion para que no tenga los textbox solos
    If Text1.Text = "" And Text2.Text = "" Then
        MsgBox "No puedes dejar un campo en blanco"
        'Condición para poder seleccionar las 2 _
        primeras letras del textbox
    ElseIf Len(Text1.Text) > 2 Then
        Text1.SetFocus      'Da el foco al text1
        Text1.SelStart = 0  'Se posiciona al inicio
        Text1.SelLength = 2 'Selecciona solo 2
        Clipboard.SetText (Text1.SelText) 'Copia el texto seleccionado
        Text3.Text = Clipboard.GetText() & Text2.Text 'Pega el clipboard
        Text1.SelStart = 0 'Desmarca la selección del texto
        Text3.SetFocus 'Pone el foco en el text3
        MsgBox "Nombre de usuario generado " & _
        "correctamente.", vbInformation, "Correcto"
    Else
        MsgBox "Escribe un nombre mas largo", vbExclamation, _
        "Error Nombre"
    End If
End Sub
Private Sub Command2_Click()
    'Limpia los textbox
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
End Sub
Private Sub Form_Load()
On Error Resume Next 'Control de errores
    Me.Caption = "Crear Nombre de Usuario"
    Me.Command1.Caption = "Crear"
    Me.Command2.Caption = "Limpiar"
End Sub
Private Sub Text3_Change()
Dim I As Integer
    'Para convertir el resultado a mayúsculas
    Text3.Text = UCase(Text3.Text)
    I = Len(Text3.Text)
    Text3.SelStart = I
End Sub

Así me quedo ami.
Espero que te sea útil esta información que comparto contigo, si tienes dudas sobre código o algo más avisame.