Ayuda con SelectionFont.Name

[nanomartin]

Hola Gente!

Estoy preparando un examen para la facultad y me pedían manejar richtextbox.
El tema es que hice mediante un combobox un desplegable para las tipografías, y al dar click sobre el texto, actualizo todos los datos de formato de ese punto, como nombre de tipografia, tamaño, N, K, S, alineacion, etc etc.
El problema lo tengo cuando selecciono MÁS DE UNA TIPOGRAFÍA en simultáneo.
Visual me da una excepción no controlada (uffff) y no sé cómo manejarlo.

Les paso un pedacito del código:

Código:

Dim BO, IT, UN As Boolean
        Dim AL As Integer
        'REVISAR TEMA NOMBRES MULTIPLES DE FONTSELECTION !! -Genera Excepción-
        FT = rtbTexto.SelectionFont.Name
        T = rtbTexto.SelectionFont.Size
        BO = rtbTexto.SelectionFont.Bold
        IT = rtbTexto.SelectionFont.Italic
        UN = rtbTexto.SelectionFont.Underline
        AL = rtbTexto.SelectionAlignment
        tipografia = listFuentes.Items.Contains(FT)
        If tipografia = True Then
            listFuentes.SelectedItem = FT
        Else
            listFuentes.Items.Add(FT)
            listFuentes.SelectedItem = FT
        End If
        tamano = listTamano.Items.Contains(T)
        If tamano = True Then
            listTamano.SelectedItem = T
        Else
            listTamano.Items.Add(T)
            listTamano.SelectedItem = T
        End If

(algunas variables no se ven declaradas acá, porque las declaré en el LOAD del form)

El resto anda perfecto, agrega tipografías que no se encuentren en el listado, como así los tamaños.

Agradecería ayuda!!