Tengo una duda

Yo Tengo Un Combo Box Con Lo Siguiente

If Combo1.Text = "Sencilla" Then
precio = 5500
 
ElseIf Combo1.Text = "Doble" Then
precio = 4200
 
ElseIf Combo1.Text = "Triple" Then
precio = 3300

  Y Un Label Que dice reservaciones  con dos DTPickers   ahora yo quiero saber como hago lo de reservaciones  ejemplo si yo me registro el 6/8/15 y pienso quedarme  hasta  11/8/15  yo quiero que  suma los dias que yo me eh quedado  segun el tipo de habitacion lo cual son(Sencilla,Doble,Triple)

creo que es dtpicker1.value=


ejemplo si yo elijo Sencilla ($5,500) y pienso quedarme dos dias  quiero que suma los dias   primerdia: $5,500  segundoDia:$5,500    =        $11,000 * habitantes

Gracias por contestar

llevo casi 45 min en esto y todavia no se que estoy haciendo

Dim Date1 as interger
dim date 2 as interger

Modificando Un Poco Mas: DateDiff("d", #1/1/2015#, #1/12/2015#)

Actualizando Mas: Dias = DateDiff(dateinterval.Day, DTPicker1.Value, DTPicker2.Value, Now.Date) & "dias"

Gracias Por Tu Ayuda!