' Project name:     Social Security Project
' Project purpose:  The project removes the dashes
'                   from a social security number.
' Created/revised:  <Mark Parsons> on <April 11, 2008>

Option Explicit On
Option Strict On

Public Class MainForm

    Private Sub xExitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xExitButton.Click
        Me.Close()
    End Sub

    Private Sub xNumberTextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles xNumTextBox.Enter
        Me.xNumTextBox.SelectAll()
    End Sub

    Private Sub xRemoveButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xRemoveButton.Click
        ' removes the dashes from a social security number
        Dim SSNum As String
        Dim NewSSNum As String
        SSNum = Me.xNumTextBox.Text
        Do Until SSNum.Length = 11
            SSNum = Me.xNumTextBox.Text
        Loop
        NewSSNum = SSNum.Trim("-"c)
        NewSSNum = Me.xNumLabel.Text

        Me.xNumTextBox.Focus()
    End Sub
End Class

Private Sub xRemoveButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xRemoveButton.Click
        If Me.xNumTextBox.Text.Length = 11 Then
            Dim ssn As String = Me.xNumTextBox.Text

            ssn = ssn.Remove(ssn.IndexOf("-"), 1)
            ssn = ssn.Remove(ssn.IndexOf("-"), 1)

            Me.xNumLabel.Text = ssn
        Else
            MessageBox.Show("SSN must be 11 characters including dashes")
        End If
End Sub