ragazzi devo fare un esercizio dove caricare tipologia stanza, prezzo audlti, e prezzo bambini

e fin qui penso di esserci
ho fatto con il Do

codice:
Public Class Form1
    Dim Tipologia_Stanza, Scelta As String
    Dim Prezzo_notte_Adulto, Prezzo_Children, Prezzo_tot As Decimal
    Dim Num_notti(100), Num_Adulti(100), Num_Bambini(100) As Integer
    Dim I As Integer
Do 
Tipologia_Stanza = InputBox("Inserire tipo stanza") 
Prezzo_notte_Adulto = InputBox("Inserire Prezzo adulto/notte") 
Prezzo_Children = InputBox("Inserisci Prezzo bambino/notte") 
Scelta = InputBox("Inserire un altra tipologia di stanza?") 
Loop Until Scelta = "no" End Sub
poi dovrei fare un preventivo, mettendo il numero di notti, prezzi, num adulti e bambini , cose cosi e sto provando cosi:

codice:
Private Sub BtnPreventivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPreventivo.Click 
For J = 0 To I - 1 
Num_notti(I) = InputBox("Inserisci quante notti soggiorneranno") 
Tipologia_Stanza = InputBox("inserisci in che tipo di stanza soggiorneranno") 
Num_Adulti(J) = InputBox("Inserisci quanti sono gli adulti") 
Num_Bambini(J) = InputBox("Inserisci quanti sono i bambini") 
Prezzo_notte_Adulto = (Prezzo_notte_Adulto * Num_Adulti(J)) * Num_notti(J) 

Prezzo_Children = (Prezzo_Children * Num_Bambini(J)) * Num_notti(J) 
Prezzo_tot = Prezzo_Children + Prezzo_notte_Adulto 
Next
 MsgBox(Prezzo_tot) 
End Sub
 End Class
sicuramente ho sbagliato qualcosa perchè quando clicco sul bottone mi appare subito 0...

ho aggiustato provando anche questo col Do

codice:
Private Sub BtnPreventivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPreventivo.Click 
Do 
Num_notti = InputBox("Inserisci quante notti soggiorneranno", "1") 
Tipologia_Stanza = InputBox("inserisci in che tipo di stanza soggiorneranno", "2") 
Num_Adulti = InputBox("Inserisci quanti sono gli adulti", "3") 
Num_Bambini = InputBox("Inserisci quanti sono i bambini", "4") 
Prezzo_notte_Adulto = (Prezzo_notte_Adulto * Num_Adulti) * Num_notti 
Prezzo_Children = (Prezzo_Children * Num_Bambini) * Num_notti 
Prezzo_tot = Prezzo_Children + Prezzo_notte_Adulto MsgBox(Prezzo_tot) 
Scelta = InputBox("inserire un altro preventivo?") 
Loop Until Scelta = "no" 
End Sub 
End Class
sembra che funziona, almeno la prima volta, le volte dopo escono numeri troppo grandi..