Visual Basic - voucher

Dim Valor As Decimal = 3000.5

        Dim PuntosTotales As Integer = 0

        Dim CadenaDePuntos As String = ""

        ' 100.50 Fix = 100  -->     PuntosTotales = 1   --> Length = 1

        '3000.50 Fix = 3000 -->  PuntosTotales = 30 --> Length = 2

        'StrDup , Repite la cadena "." el numero de veces indicado --> "s/.."

        PuntosTotales = (Fix(Valor) / 100).ToString.Length

        CadenaDePuntos = "s/" & StrDup(CInt((PuntosTotales)), ".")

        '     12345678910 

        '---> s/..******  <---** 

        Dim CadenaFinal As String = ""

        CadenaFinal = Microsoft.VisualBasic.Left(CadenaDePuntos & "********", 10)

        CadenaFinal = CadenaFinal & Valor 'añade el valor al final

        Me.TextBox1.Text = CadenaFinal