Jours compris dans datediff

Bonjour, j'aimerai compter les jours d'un datediff compris dans une combobox
j'ai le code ci-dessous mais ca ne fonctionne pas car je compare les dates d'une combobox avec le datediff qui est un chiffre et pas des dates, il faudrait comparer le datediff en date avec la combobox qui est en dates mais je ne vois pas comment?

Code:

1
2
3
4
5
6
7
8
9
10
Dim h6, h7 As DateTime
                Dim diff2 As String
                h6 = TextBox6.Text
                h7 = TextBox7.Text
                diff2 = DateDiff("d", CStr(DateAdd(DateInterval.Day, 1, h6)), CStr(DateAdd(DateInterval.Day, 4, h7)))
                For i = 0 To ComboBox4.Items.Count - 1
                    If ComboBox4.Items(i).ToString = diff2 Then
                        diff2 = diff2 - 1
                    End If
                Next