Imports System

Public Module Module1

​

    Public Sub Main()

        Dim sWord As strin

        'get input

        sWord = Console.readline()

        Dim iCount As Integer = 0

        For iCount = 1 To 12

        'output stuff

        Console.Write(sWord & "_")

        Next

​

    End Sub

End Module