Private Sub btnDisplay_Click(...) Handles btnDisplay.click Dim word As String InputBox ( "What is your favorite word?") txtoutput.Text = "When the word is written twice, "& word = Twice (word) & "...

What are the errors?

Extracted text: Private Sub btnDisplay_Click(...) Handles btnDisplay.click Dim word As String InputBox ( "What is your favorite word?") txtoutput.Text = "When the word is written twice, "& word = Twice (word) & " letters are used." End Sub Function Twice (w As String) As Integer "Compute twice the length of a string Dim len As Integer Return len = 2 * w.Length End Function