Проверка на наличие значений нескольких ComboBox и вывод значения из последнего заполненного

If Combobox5<>"" then cells(1,1) = Combobox5 
else
if Combobox4<>"" then cells(1,1) = Combobox4 
else ну и т.д.

Private Sub CommandButton1_Click()
If ComboBox5 <> "" Then
    Cells(1, 1) = ComboBox5
Else
    If ComboBox4 <> "" Then
        Cells(1, 1) = ComboBox4
    Else
        If ComboBox3 <> "" Then
            Cells(1, 1) = ComboBox3
        Else
            If ComboBox2 <> "" Then
               Cells(1, 1) = ComboBox2
            Else
                If ComboBox1 <> "" Then
                    Cells(1, 1) = ComboBox1
                End If
           End If
       End If
    End If
End If
End Sub

Private Sub CommandButton1_Click()
Dim cntrl As Control
 
        Res$ = ""
 
        For Each cntrl In Me.Controls
 
            nam$ = cntrl.Name
 
            If LCase$(nam$) Like "combobox*" Then
            
               n% = Val(Mid$(nam$, 9)) '::: Номер комбо (если нужен)
               
               Res$ = Res$ & nam$ & " " & cntrl.Text & vbCrLf
            
            End If
        
        Next
        
        Me.Hide
        
        MsgBox Res$
 
End Sub
 
Private Sub UserForm_Initialize()
 
        With Me.ComboBox1
             .AddItem 1
             .AddItem 2
             .AddItem 3
             .AddItem 4
        End With
        
        With Me.ComboBox2
             .AddItem "a"
             .AddItem "b"
             .AddItem "c"
             .AddItem "d"
        End With
        
        With Me.ComboBox3
             .AddItem 1.11
             .AddItem 2.22
             .AddItem 3.33
             .AddItem 4.44
        End With
        
        With Me.ComboBox4
             .AddItem True
             .AddItem False
             .AddItem True
             .AddItem False
        End With
        
        With Me.ComboBox5
             .AddItem 1
             .AddItem 2
             .AddItem 3
             .AddItem 4
        End With
 
End Sub