Imports System

Public Module Module1

    Public Sub Main()

       Dim multa = (Decimal.Parse(100,00) * 1.02) '2%

       Dim mora = (Decimal.Parse(100,00) * 1.01) ' 1%

        Dim Instrucoes as String =""

        Instrucoes &= "Sr. Caixa, não receber após 3 dias do vencimento. <br />"

        Instrucoes &= $"Após o vencimento cobrar multa de R${multa.ToString} e mora de R${mora.ToString} por dia de atraso."

        Console.WriteLine(Instrucoes)

    End Sub

End Module