Foros del Web - Ayuda con SelectionFont.Name

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!! :-)