If CBool(InStr(txtMCAccession.Text, "-")) Then
            strSplits = Split(txtMCAccession.Text, "-")
        Else
            ReDim strSplits(0)

        End If
        strSplit = txtMCAccession.Text
        If Not IsNumeric(strSplits) Then
            Select Case txtMCAccession.Text.Length
                Case Is = 3
                    txtMCAccession.Text = Microsoft.VisualBasic.Left(txtMCAccession.Text, 2) & "-" & Microsoft.VisualBasic.Right(txtMCAccession.Text, 1)
                    txtMCAccession.CaretIndex = txtMCAccession.Text.Length
                Case Is = 4
                   
                Case Is = 5
                    txtMCAccession.Text = Microsoft.VisualBasic.Left(txtMCAccession.Text, 2) & "-" & Microsoft.VisualBasic.Right(txtMCAccession.Text, 2) & "-"
                    txtMCAccession.CaretIndex = txtMCAccession.Text.Length
                Case Is = 6
                    txtMCAccession.Text = txtMCAccession.Text & "-" & Microsoft.VisualBasic.Right(txtMCAccession.Text, 2)
                    txtMCAccession.CaretIndex = txtMCAccession.Text.Length
                Case Is = 7
                Case Is > 8
                    txtMCAccession.Text = Microsoft.VisualBasic.Right(txtMCAccession.Text, Len(txtMCAccession.Text) - 1)

            End Select
        ElseIf CBool(InStr(txtMCAccession.Text, "-")) Then
            'do nothing
        Else
            'txtMCAccession.Text = Right(txtMCAccession.Text, Len(txtMCAccession.Text) - 1)
            txtMCAccession.Text = Nothing
        End If