Can anyone help rewrite the problems below with the output performed by a call to a Sub procedure for VB...

Can anyone help rewrite the problems below with the output performed by a call to a Sub procedure for VB 2010? 1. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click 'Greet a friend Dim name As String = "Jack" txtOutput.Text = "Hi, " & name End Sub 2. Private Sub btnDisplay_Click(...) Handles btnDisplay.Click Dim city As String, salary As Double lstOutput.Items.Clear() city = "San Jose" salary = 83089 lstOutput.Items.Add("In 2008, the average salary for " & city & " residents was " & FormatCurrency(salary, 0) & ".") city = "Hartford" salary = 46000 lstOutput.Items.Add("In 2008, the average salary for " & city & " residents was " & FormatCurrency(salary, 0) & ".") End Sub