Как вывести все оставшиеся комбинации на один msgBox - VB

Формулировка задачи:

                    Листинг программы
                
If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "2" Then
ф_с_2.Show
 
If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "1" Then
ф_с_1.Show

а остальные комбинации комбо должны на мсджБокс уходить

Решение задачи: «Как вывести все оставшиеся комбинации на один msgBox»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
 
Private Sub Command1_Click()
If Combo2.Text = "Комедия" Then
  If Combo1.Text = "США" Then
    If Combo3.Text = "2009" Then
      комедии_сша_2009.Show 1
    ElseIf Combo3.Text = "2012" Then
      комедии_сша_2012.Show 1
    ElseIf Combo3.Text = "2013" Then
      комедии_сша_2013.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      КОМЕДИИ_сша.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "Германия" Then
    If Combo3.Text = "1997" Then
      комедия_германия_1997.Show 1
    ElseIf Combo3.Text = "2009" Then
      комедия_германия_2009.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      комедия_германия.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "Россия" Then
    If Combo3.Text = "1971" Then
      комедии_россия_1971.Show 1
    ElseIf Combo3.Text = "2010" Then
      комедии_россия_2010.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      комедии_россия.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "" Or Combo1.Text = "страна" Then
    комедии.Show 1
  Else
    aytn.Show 1
  End If
ElseIf Combo2.Text = "Боевик" Then
  'по аналогии с комедиями
ElseIf Combo2.Text = "Приключения" Then
  'по аналогии с комедиями
ElseIf Combo2.Text = "Фантастика" Then
  'по аналогии с комедиями
Else
  aytn.Show 1
End If
End Sub