VIRGULA NO MEIO DE NUMERO INTEIRO

 Private Sub TXTVALOR_Change()
    MascMoeda TXTVALOR
End Sub
 

 Public Sub MascMoeda(ByVal Controle As TextBox)
Dim I As Integer, T As String
With Controle
    [ô]Armazena o Text, para nao causar o evento change a toa
    T = .Text
    [ô]Armazena o SelStart da Dir. para Esq., pois o alinhamento é esq.
    I = Len(T) - .SelStart
    [ô]Tira a virgula da var T
    T = Replace(.Text, [Ô],[Ô], [Ô][Ô])
    [ô]Acrescenta zeros
    If Len(T) < 3 Then T = String(3 - Len(T), [Ô]0[Ô]) & T
    [ô]Monta o nr separando as casas
    T = Mid(T, 1, Len(T) - 2) & [Ô],[Ô] & Mid(T, Len(T) - 1)
    [ô]Formata o nr para tirar os zeros a mais q podem ficar no começo
    [ô]T = Format(T, [Ô]#0.00[Ô])
    T = Format(T, [Ô]#,##0.00[Ô])
    [ô]Verifica se o valor do Text é <> da Var. T (para nao travar no evento Change)
    If .Text <> T Then .Text = T
    [ô]Como mudou o valor do TextBox, tem q voltar o SelStart ao q era antes
    .SelStart = Len(T) - I
End With
End Sub