no non esce e ora ho anche cambiato..

codice:
Public Class Form1
Dim Tipologia_Stanza(3), Scelta As String Dim Prezzo_notte_Adulto(3), Prezzo_Children(3), Prezzo_tot As Decimal 
Dim Num_notti(100), Num_Adulti(100), Num_Bambini(100), Somma As Integer 
Dim I, N As Integer 

Private Sub BtnPreventivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPreventivo.Click  
Somma = 0 
Tipologia_Stanza(I) = InputBox("inserisci in che tipo di stanza soggiorneranno", "2") 
Do
Num_Adulti(I) = InputBox("Quanti adulti ci sono?") 
Num_Bambini(I) = InputBox("Quanti bambini ci sono?") 
Num_notti(I) = InputBox("Quante notti soggiorneranno?") 
If Tipologia_Stanza(I) = "Normal" Then 
Somma = (Prezzo_Children(1) * Num_Bambini(I)) + (Prezzo_notte_Adulto(1) * Num_Adulti(I)) * Num_notti(I) 
MsgBox(Somma) 
End If 
I = I + 1 
Scelta = InputBox("Inserire altri?")
Loop Until Scelta = "no" End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
I = 0 
For I = 0 To N - 1 
Tipologia_Stanza(1) = "Normal" 
Tipologia_Stanza(2) = "Suite" 
Tipologia_Stanza(3) = "ExtraSuite" 
Prezzo_notte_Adulto(1) = "40" 
Prezzo_notte_Adulto(2) = "80" 
Prezzo_notte_Adulto(3) = "120" 
Prezzo_Children(1) = "20" 
Prezzo_Children(2) = "40" 
Prezzo_Children(3) = "80" 
Next
End Sub 
End Class
come mi ha detto la mia prof ho messo in 3 listbox i dati
e nel form load li ho caricati
però poi per fare il preventivo è gisuto come ho fatto?..però esce 0..