ALGUEM SABE QUAL É A MASCARA NUMERICA NO VB QUE É SEMELHANTE AQUELA MASCARA DE CAMPOS QUE TECLAMOS EM CAIXA ELETRONICOS DE BANCOS, AQUELA ONDE A VIRGULA FICA FIXA E AO DIGITARMOS O NÚMERO, OS MESMO VÃO APARECENDO DA DIREITA PARA ESQUEDA, OU SEJA, A ORDEM É DOS CENTAVOS PARA O NUMERO INTEIRO, É AQUELA MASCARA ONDE O USUARIO NÃO PRECISA TECLAR A VIRGULA OU PONTO PARA FORMA O VALOR, BASTA TECLAR APENAS OS NUMEROS?

Coloque na função KeyPress.

Opção 1

If keyascii = 13 then

      txtRecebe = format(txtRecebe,"##,##0.00")

Endif

 

Opção 2

ou então deixe na propriedade MASK do campo = ##,##0.00 e na propriedade

Espero que tenha ajudado.

Não testei muito mas ao q parece ficou do jeito q pediu:

 

Private Sub Texto1_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Texto1.Text) >= 3 Then
    Texto1.Text = Replace(Texto13.Text, ",", "")
    Texto1.Text = Left(Texto13.Text, Len(Texto1.Text) - 2) & "," & Right(Texto1.Text, 2)
    Texto1.SelStart = Len(Texto1.Text)
End If
End Sub

t+