Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim sDisplayText As String
        Dim sNumberChars As String
        sNumberChars = Len(sDisplayText)
        tbDisplay.Text = sDisplayText
        tbDisplay.Text = Left(sDisplayText, sNumberChars - 1)
    End Sub