AddHandler Me.MaskedTextBox1.DataBindings("text").Format, AddressOf ChangeMask

Private Sub ChangeMask(ByVal sender As Object, ByVal cevent As ConvertEventArgs)
        Dim myMask As String
        myMask = "$ "
 
        Dim amountlength As Integer = cevent.Value.ToString.Length
        For i = 0 To amountlength - 3
            myMask = myMask + "#"
        Next
        myMask = myMask + ".##"
 
        Me.MaskedTextBox1.Mask = myMask
    End Sub

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste