¿Formulario con 2 combobox y un texbox que toma valores según las 3 opciones los combobox?

Combobox  nombre: Probabilidad opciones: Baja, Media, Alta  (B, M, A)
Combobox  nombre: Consecuencias opciones: Ligeramente Dañino, Dañino, Extremadamente Dañino  (LD, D, FD)
En un cuadro de texto se debe mostrar  la estimación que son 5 opciones según como selecciono en los Combobox:
0.-  No aplica
1.-  Trivial    T
2.-  Tolerable TO
3.-  Moderado  MO
4.-  Importante  I
5.-  Intolerable  IN
La estimación se determina de la siguiente forma:
B y LD=T                              TO=B y o M y D
MO=ByED o MyD o AyLD              I=MyED o AyD                   IN= AyED
Quiero  el código que determine la opción del cuadro de texto Estimación según como escojo las opciones en los combobox que describo, algo como esto
Private Sub Estimación_Change()
Estimación.Requery
End Sub
Private Sub Estimación_Change()
Select Case Me.Probabilidad
Case "Baja":
Select Case Me.Consecuencia
Case "Ligeramente Dañino":
Case Else:
Me.Estimación = "Trivial"
Select Case Me.Probabilidad
Case "Bajo":
Select Case Me.Consecuencia
Case "Dañino":
Select Case Me.Probabilidad
Case "Media":
Select Case Me.Consecuencia
Case "Ligeramente Dañino":
Case Else:
Me.Estimación = "Tolerable"
Select Case Me.Probabilidad
Case "Baja":
Select Case Me.Consecuencia
Case "Extremadamente Dañino":
Select Case Me.Probabilidad
Case "Media":
Select Case Me.Consecuencia
Case "Dañino":
Select Case Me.Probabilidad
Case "Alta":
Select Case Me.Consecuencia
Case "Ligeramente Dañino":
Case Else:
Me.Estimación = "Moderado"
Select Case Me.Probabilidad
Case "Media":
Select Case Me.Consecuencia
Case "Extremadamente Dañino":
Select Case Me.Probabilidad
Case "Alta":
Select Case Me.Consecuencia
Case "Ligeramente Dañino":
Case Else:
Me.Estimación = "Importante"
Select Case Me.Probabilidad
Case "Alta":
Select Case Me.Consecuencia
Case "Extremadamente Dañino":
Case Else:
Me.Estimación = "Intolerable"
Estimación.Requery
End Select
End Sub