Ma con questo codice

codice:
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
tu cosa vuoi fare? A cosa ti servono tutti i Debug.Print?