Boa tarde.

Seria mais ou menos isso?

    If Left(Trim(Me.tbTelefoneFixo), 1) = 9 Then
        
        MsgBox ("Digite um telefone fixo válido!")
        Me.tbTelefoneFixo = ""
        
    End If

Segue planilha como exemplo.

Obrigado Rafael...!

fcarlosc,

Boa tarde!

Deixa eu só fazer uma pequena modificação, aproveitando o exemplo do colega rafaelp.

Se o número fixo começar com 9? Então nunca vai dá certo... correto?

Dessa forma, é preciso verificar se o número digitado na caixa de texto tem mais de 8 caracteres. Segue nova versão.

Só complementando mais um pouco, da pra forçar a retirada do 9 do começo e continuar digitando normalmente depois.. através do evento KeyDown..
Eu faria assim rs

Private Sub tbTelefoneFixo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If Left(Trim(Me.tbTelefoneFixo), 1) = 9 Then
    
        Me.tbTelefoneFixo = ""
    
    End If

End Sub