Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.TextLength = 29 Then
            Button4.Enabled = True
        Else
            Button4.Enabled = False
            Label11.Text = ""
            PictureBox1.Image = Nothing
        End If
 
        If (TextBox2.TextLength > 5) Then
            If Not TextBox2.Text.Chars(5) = "-" Then
                TextBox2.Text = TextBox2.Text.Insert(5, "-")
                TextBox2.SelectionStart = TextBox2.TextLength
            Else
                Label11.Text = ""
                PictureBox1.Image = Nothing
            End If
        End If
 
 
 
        If (TextBox2.TextLength > 11) Then
            If Not TextBox2.Text.Chars(11) = "-" Then
                TextBox2.Text = TextBox2.Text.Insert(11, "-")
                TextBox2.SelectionStart = TextBox2.TextLength
            Else
                Label11.Text = ""
                PictureBox1.Image = Nothing
            End If
        End If
 
 
 
        If (TextBox2.TextLength > 17) Then
            If Not TextBox2.Text.Chars(17) = "-" Then
                TextBox2.Text = TextBox2.Text.Insert(17, "-")
                TextBox2.SelectionStart = TextBox2.TextLength
            Else
                Label11.Text = ""
                PictureBox1.Image = Nothing
            End If
        End If
 
 
        If (TextBox2.TextLength > 23) Then
            If Not TextBox2.Text.Chars(23) = "-" Then
                TextBox2.Text = TextBox2.Text.Insert(23, "-")
                TextBox2.SelectionStart = TextBox2.TextLength
            Else
                Label11.Text = ""
                PictureBox1.Image = Nothing
            End If
        End If
    End Sub