.................

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