Eu prefiro usar no momento que o cursor sair da textbox facilita o uso

Formatei para numero de telefone fixo sem o DDD altere conforme sua necessidade

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1, "0000-0000") 

End Sub

seria assim quando começar a digitar ele ja vai colocando o dd entre parênteses e depois separar os numeros

O que muda é apenas o evento.

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "(##) ####-####")
End Sub

Ou

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1, "(00) 0000-0000")
End Sub

Não recomendo usar dessa forma mas esta ai.

Não testei mas é por ai