[VB.NET] Dato da InputBox??

[federik95]

Buonasera,
ho iniziato da poco a programmare, iniziando proprio da Visual Basic.
Vorrei creare un programma che tramite una textbox, impostando "0" calcolo il perimetro di un quadrato, mentre con "1" il perimetro di un rettangolo. Per impostare il dato poi da calcolare ho un inputbox, ma non riesco a farlo vedere come dato. Come faccio?

Copio la sequenza di codice:

 
'INPUT
 Dim Forma As Short 
 Dim Dato1 As Decimal
 Dim Dato2 As Decimal
 Dim Dato23 As Decimal


'OUTPUT
Dim Risultato As Short
Dim Risultato2 As Decimal






    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Forma = 0 Then
            Dato1 = Val(InputBox("Inserire il numero", "Messaggio per l'utente"))
            Risultato = Dato1 * 4
            Risultato = CStr(TextBox2.Text)












        End If
    End Sub

Ringrazio!