Facendo riferimento al codice che hai scritto, se d e' una stringa, all'interno del ciclo

codice:
...
    d = i.ToString("00") & "/" & Date.Today.Month.ToString("00") & "/" & Date.Today.Year
    If Convert.ToDateTime(d).DayOfWeek <> DayOfWeek.Sunday Then
       ComboBox1.Items.Add(d)
    End If
...