Fazer textbox reconhecer letras maiúsculas ou minúsculas

[Gata Linda 0]

Bom dia a todos,

Estou acostumada a usar essa função no vba, mas agora em vb6 não esta aceitando como fazer para dar certo???

Private Sub txtDescProdCP_Change()

Dim Altera As String

Dim Particula_atona(9) As String

Dim Particula(9) As String

Dim i As Integer

Particula_atona(1) = "Da"

Particula_atona(2) = "De"

Particula_atona(3) = "Do"

Particula_atona(4) = "No"

Particula_atona(5) = "A"

Particula_atona(6) = "E"

Particula_atona(7) = "I"

Particula_atona(8) = "O"

Particula_atona(9) = "U"

Particula(1) = "da"

Particula(2) = "de"

Particula(3) = "do"

Particula(4) = "no"

Particula(5) = "a"

Particula(6) = "e"

Particula(7) = "i"

Particula(8) = "o"

Particula(9) = "u"

Altera = txtDescProdCP.Text

Altera = StrConv(Altera, vbProperCase)

For i = 1 To 9

Altera = Replace(Altera, " " & Particula_atona(i) & " ", " " & Particula(i) & " ")

Next

txtDescProdCP.Text = Altera

End Sub

Alguém pode me ajudar a fazer funcionar no vb6, e se possível colocar no modulo e chamar em todas as textbox ao mesmo tempo sem precisar referenciar...

tenho essa função que funciona mas só com letra maiúscula queria poder Digitar "Maria da Silva "

Private sub Form_KeyPress(keyAscii As Integer)

KeyAscii=Asc(UCase(Chr(KeyAscii)))

End Sub

Pessoal conto com a ajuda de todos,

Atenciosamente,

Débora

[KhaosDoctor 242]

Mas qual é o objetivo dessa função?

[Gata Linda 0]

Gostaria de fazer que este código abaixo,

fizesse que quanto digitasse na textbox ou com letra maiúscula ou minuscula ele transformasse em Debora de Almeida por exemplo que o de fica minuscula e a primeira letra dos demais maiúscula

pequei esse código na internet,

coloquei no módulo, só que quando tento puxar na minha textbox da erro, ou trava o formulário.

podes me ajudar ????

Public Sub AlterarLetras(txt As Object)

txt = VBA.StrConv(txt, vbProperCase)

txt = Replace(txt, " De ", " de ")

txt = Replace(txt, " Dos ", " dos ")

txt = Replace(txt, " Das ", " das ")

txt = Replace(txt, " Das ", " das ")

End Sub