Extraer los 2 caracteres de un textbox

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.

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