ListBox - Auswahl integrieren

Private Sub CommandButton1_Click()
 Dim clipBoardObj As DataObject
    Set clipBoardObj = New DataObject
    Dim x As String
    
    If ComboBox1 = "eingereicht" And ComboBox2 = "Tagesscan" Then
    
   
    x = "Der Kunde reicht folgende Unterlagen am Empfang ein:" & Chr$(10) & TextBox1 & Chr$(10) & "Unterlagen mit Eingangsdatum versehen und zum Tagesscan gelegt"
    ElseIf ComboBox1 = "eingereicht" And ComboBox2 = "Sofort eingescant" Then
    
    x = "Der Kunde reicht folgende Unterlagen am Empfang ein;" & Chr$(10) + TextBox1 + Chr$(10) + "Unterlagen mit Eingangsdatum versehen und für eine schnelle Bearbeitung per Scan in die E-Akte gedruckt."
    
    Else
    
    If ComboBox1 = "ausgegeben" Then
    
    x = "Dem Kunden wurden folgende Unterlagen ausgegeben:" & Chr(10) + TextBox1
    
   ElseIf ComboBox1 = "" Then
   
   x = ""
    
End If
End If
clipBoardObj.SetText x
clipBoardObj.PutInClipboard