Private Sub Text1_Change()
Dim Letra As String
Letra = Text1.Text
Select Case Letra
      Case "01" 'Si se ingreso el 01
      Text2.Text = Text2.Text + "A" 'le agregas la letra A al texto
      Case "02"
      Text2.Text = Text2.Text + "B"
      Case "03"
      Text2.Text = Text2.Text + "C"
      '... sigue iwal para abajo
End Select
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) > 1 Then 'esto borra el text1 cuando ya tiene 2 caracteres
Text1.Text = ""
End If
End Sub