Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Dim txt As TextBox = TryCast(sender, TextBox)
        If txt IsNot Nothing And e.KeyCode = Keys.Enter Then
            Debug.WriteLine(txt.Text)
            txt.Clear()
        End If
    End Sub
End Class