Private Sub btnPress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPress.Click
   Dim User As String
   User = InputBox("What is your name?", "Greetings")
   Me.Text = "Hello " & User
End Sub 'btnPress_Click