A dúvida é, Consigo usar Application.WorksheetFunction.Proper, quando quando for por exemplo, da, e, dos, exemplo: Pedro da Silva ,

Luciano, veja se consegue adaptar:

Sub teste()

Dim Altera              As String
Dim Particula_atona(3)  As String
Dim Particula(3)        As String
Dim i                   As Integer

Particula_atona(1) = "Da"
Particula_atona(2) = "De"
Particula_atona(3) = "Do"

Particula(1) = "da"
Particula(2) = "de"
Particula(3) = "do"

Altera = TextBox_Nome.Text
Altera = StrConv(Altera, vbProperCase)

For i = 1 To 3
Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")
Next
TextBox_Nome.Text = Altera
End Sub

fonte: viewtopic.php?t=10176&p=53570

é possível também criar um cogido que use o a ortografia e gramatica, e conforme escrever errado ele nos sublinhe ou vai Corregindo os acentos???

Sim é possivel, mas acredito que não seja viavel, pois terá que manter uma biblioteca grande no arquivo ou no banco integrado e tratar as n(s) situações.