.................
Else
Try
Dato2 = Val(InputBox("Inserire la base del rettangolo","Messaggio per l'utente"))
Dato23 = Val(InputBox("Inserire l'altezza del rettangolo","Messaggio per l'utente"))
Debug.Print("Dato2: " & Dato2.ToString & " -Dato23: " & Dato23.ToString)
Risultato 2= Dato2*Dato23
Debug.Print("Risultato2: " & Risultato2.ToString)
TextBox2.Text = Risultato2.ToString
Catch ex as Exception
Debug.Print(ex.ToString)
End Try
End If

Rispondi quotando
