Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles [/SIZE][SIZE=1]TextBox1[/SIZE][SIZE=1].TextChanged
Dim Strvar As String = [/SIZE][SIZE=1]TextBox1[/SIZE][SIZE=1].Text
Dim StringLength As Integer = 10
Dim StrCharArray() As Char = Strvar.ToCharArray()
Dim a As Integer
If Strvar.Length > 10 Then
MsgBox("String longer than 10")
Strvar = ""
For a = 0 To StringLength - 1
Strvar &= StrCharArray(a)
Next
[/SIZE][SIZE=1]TextBox1[/SIZE][SIZE=1].Text = Strvar
End If
End Sub