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

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

If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "2" Then
  ф_с_2.Show
else
  If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "1" Then
    ф_с_1.Show
  else
    msgbox "То, что нужно"    
  end if
end if

If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "2" Then
  ф_с_2.Show
else
If Combo2.Text = "Ф" Then
  ф.Show
else
  If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "1" Then
    ф_с_1.Show
  else
  If Combo2.Text = "Ф" And Combo1.Text = "Любое не прописаное" And Combo3.Text = "Любое не прописаное" Then
    ф.Show
  else
    msgbox "То, что нужно" 
 end if   
  end if
   end if
     end if

If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "2" Then
   ф_с_2.Show
elseIf Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "1" Then
   ф_с_1.Show
elseIf Combo2.Text = "Ф" Then
   ф.Show
else
   msgbox "То, что нужно" 
end if

If Combo2.Text = "Ф" Then
   ф.Show

If Combo2.Text = "Ф" And Combo1.Text = "676767" And Combo3.Text = "6767672" Then
   ф.Show

If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "2" Then
   ф_с_2.Show
elseIf Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "1" Then
   ф_с_1.Show
elseIf Combo2.Text = "Ф" Then
   ф.Show
else
   msgbox "То, что нужно" 
end if

If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "2" Then
   ф_с_2.Show
elseIf Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "1" Then
   ф_с_1.Show
elseIf Combo2.Text = "Ф"  And Combo1.Text = "" And Combo3.Text = "" Then
   ф.Show
else
   msgbox "То, что нужно" 
end if

Option Explicit
Public start As Integer
 
Private Sub Command1_Click()
Dim Нужная_форма
 
SKRYT
 
If Combo2.ListIndex < 0 Or Combo1.ListIndex < 0 Or Combo3.ListIndex < 0 Then
MsgBox "Сделайте выбор", vbCritical, ""
aytn.Show
Exit Sub
End If
 
Нужная_форма = "F" & Combo2.ListIndex * 100 + Combo1.ListIndex * 10 + Combo3.ListIndex
Debug.Print Нужная_форма
Stop
Dim OneForm As Form
 
For Each OneForm In Forms
   If OneForm.Name = Нужная_форма Then
      OneForm.Show
      Exit Sub
   End If
Next
aytn.Show
End Sub
 
Private Sub Form_Load()
Load F113
Load боевик_2012
Load боевик_2013
Load Германия
Load комедии
Load комедии_россия
Load комедии_россия_1971
Load комедии_россия_2010
Load комедии_сша_2009
Load комедии_сша_2012
Load комедии_сша_2013
Load комедия_германия
Load комедия_германия_1997
Load комедия_германия_2009
Load приключения
Load Россия
Load США
Load фантастика
Load фантастика_Германия
Load фантастика_сша
Load фантастика_сша_2001
Load фантастика_сша_2011
Load фантастика_сша_2012
SKRYT
End Sub
Sub SKRYT()
Dim F As Form
For Each F In Forms
 F.Visible = False
Next
aглавная.Visible = True
End Sub

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