Dim s As New System.Text.StringBuilder Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress s.Append(e.KeyChar) e.Handled = True End Sub