Pesquisando aqui um código para ativa uma função nos textboxes, que ao digitar um valor em moeda o ponto e vírgula possem adicionando automático !

Encontrei esse Código:

Function CampoValor(obj As Object, KeyAscii As Integer, tamanho As Integer)
    If Not ((KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or KeyAscii = 8) Then
        KeyAscii = 0
        Exit Function
    End If
    If KeyAscii <> 8 Then
        If Len(obj.Text) = tamanho Then
            KeyAscii = 0
            Exit Function
        End If
        If Len(obj.Text) > 1 Then
            obj.Text = Replace(obj.Text, ",", "")
            obj.Text = Left(obj.Text, Len(obj.Text) - 1) & "," & Right(obj.Text, 1)
            obj.Text = Format(obj.Text, "###,##0.0")
            obj.SelStart = Len(obj.Text)
        End If
    End If
End Function

Só que ao chamar o código no keyPress ta dando erro, usei esse pra chamar:

CampoValor TextBox1, KeyAscii, 10

alguém dar um helpe?