Visual Basic - COMBO

Hola, tengo un combo que lo lleno de la siguiente forma:

Set rst2 = New ADODB.Recordset
rst2.CursorLocation = adUseClient
rst2.Open "Select * from Tipos", cnn, adOpenDynamic, adLockOptimistic

While Not rst2.EOF
cboTipos.AddItem rst2!TipoID & ".- " & rst2!TipoCliente
rst2.MoveNext
Wend

pero cuando en la ejecucion elijo entre los datos del combo no entra a la rutina de Private Sub cboTipos_Change()

el codigo que tengo en esa rutina es el siguiente:
Private Sub cboTipos_Change()


Dim seleccion As String
Dim derecha As String
Dim medida As String

seleccion = cboTipos.Text
medida = Len(cboTipos.Text)
derecha = Mid(seleccion, 5, medida)
izquierda = Left(seleccion, 1)

Text1(1).Text = derecha
Text1(8).Text = izquierda


End Sub

No se porque no entra a esta rutina... alguien podria ayudarme?
Gracias

CREO QUE SI UTILIZAS EL DATA COMBO ES MAS SENCILLO