Visual Basic - Caixa de Texto numérica idêntica aos de sites Bancários

Inicie um novo projeto e insira uma caixa de texto e Option Explicit adicione a seguinte declaração:

Option Explicit
Private Const CB_FINDSTRING As Long = &H14C
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

no evento keypress da caixa de texto adicione o seguinte código

Private Sub txtNumConta_KeyPress(KeyAscii As Integer)
If (Not IsNumeric(Chr(KeyAscii))) And (KeyAscii <> vbKeyBack) Then
KeyAscii = 0
ElseIf (Len(txtNumConta.Text) > 1) And (txtNumConta.Text <> "0,") Then
txtNumConta = Replace(txtNumConta, ",", "")
txtNumConta = Left(txtNumConta, Len(txtNumConta) - 1) & "," & Right(txtNumConta, 1)
txtNumConta = Format(txtNumConta, "#0.0")
txtNumConta.SelStart = Len(txtNumConta)
End If
End Sub

E pronto basta executar e testar seu projeto.
Equipe I Sistemas