Проверка на наличие первой цифры 8 в номере телефона

Dim HOMEP1 As String = ""
    Private Sub MaskedTextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaskedTextBox1.Click
        If Clipboard.GetText() = Nothing Then Exit Sub 'если пустой буфер
        Dim HOMEP As String = Clipboard.GetText() 'извлекаем что скопировали
        If HOMEP(0) = "8" Then 'первый символ 8
            Clipboard.Clear() 'удаляем буфер
            For a = 1 To HOMEP.Length - 1
                HOMEP1 += HOMEP(a) 'запись без 8
            Next
            Clipboard.SetText(HOMEP1) 'записываем в буфер
        End If
        MaskedTextBox1.Text = Clipboard.GetText() 'вставка из буфера по клику мыши
        HOMEP1 = ""
    End Sub

Dim HOMEP1 As String = ""
    Private Sub MaskedTextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaskedTextBox1.Click
        If Clipboard.GetText() = Nothing Then Exit Sub 'если пустой буфер
        Dim HOMEP As String = Clipboard.GetText() 'извлекаем что скопировали
        If HOMEP(0) = "8" Then 'первый символ 8
            Clipboard.Clear() 'удаляем буфер
            For a = 1 To HOMEP.Length - 1
                HOMEP1 += HOMEP(a) 'запись без 8
            Next
            Clipboard.SetText(HOMEP1) 'записываем в буфер
        End If
        MaskedTextBox1.Text = Clipboard.GetText() 'вставка из буфера по клику мыши
        HOMEP1 = ""
    End Sub

Private Sub MaskedTextBox1_MaskInputRejected(sender As System.Object, e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected
    MaskedTextBox1.SelectionStart = 0
    MaskedTextBox1.SelectionLength = MaskedTextBox1.Mask.Length
End Sub

Private Sub MaskedTextBox1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MaskedTextBox1.MouseClick
    MaskedTextBox1.SelectionStart = 0
End Sub

Dim HOMEP1 As String = ""
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If Clipboard.GetText() = Nothing Then Exit Sub 'если пустой буфер
        Dim HOMEP As String = Clipboard.GetText() 'извлекаем что скопировали
        If HOMEP(0) = "8" Then 'первый символ 8
            Clipboard.Clear() 'удаляем буфер
            For a = 1 To HOMEP.Length - 1
                HOMEP1 += HOMEP(a) 'запись без 8
            Next
            Clipboard.SetText(HOMEP1) 'записываем в буфер
        End If
        If MsgBox("Заменить номер " & HOMEP & " на номер " & HOMEP1, vbYesNo, "Замена") = MsgBoxResult.Yes Then
            MaskedTextBox1.Text = Clipboard.GetText() 'вставка из буфера
            HOMEP1 = ""
        End If
    End Sub

Private Sub MaskedTextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MaskedTextBox1.KeyDown
        If MaskedTextBox1.SelectionStart = 0 Or MaskedTextBox1.SelectionStart = 1 Then
            If e.KeyCode = Keys.D8 Then
                e.SuppressKeyPress = True
                Exit Sub
            End If
        End If
    End Sub

Private Sub MaskedTextBox1_MaskInputRejected(sender As System.Object, e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected
    Dim s As String = MaskedTextBox1.Text
    If s(1) = "8" Then
        Dim ss() As String = s.Split({"("c, ")"c, "-"c, " "c}, System.StringSplitOptions.RemoveEmptyEntries)
        ss(0) = ss(0).TrimStart("8")
        s = String.Join("", ss)
        MaskedTextBox1.Text = s
        MaskedTextBox1.SelectionStart = MaskedTextBox1.Mask.Length - 1
        MaskedTextBox1.SelectionLength = 1
    Else
        'на случай какой-то другой ошибки (например ввели букву)
        MaskedTextBox1.SelectionStart = 0
        MaskedTextBox1.SelectionLength = MaskedTextBox1.Mask.Length
    End If
End Sub