Imports System
Public Class exercise120
Public Shared Sub WriteTitle(ByVal text As String)
Dim numOfSpaces As Integer = (80 - text.Length * 2) / 2
text = text.ToUpper()
For i As Integer = 0 To numOfSpaces - 1
Console.Write(" ")
Next
For i As Integer = 0 To text.Length * 2 - 1 - 1
Console.Write("-")
Next
Console.WriteLine()
For i As Integer = 0 To numOfSpaces - 1
Console.Write(" ")
Next
For i As Integer = 0 To text.Length - 1
Console.Write(text(i) & " ")
Next
Console.WriteLine()
For i As Integer = 0 To numOfSpaces - 1
Console.Write(" ")
Next
For i As Integer = 0 To text.Length * 2 - 1 - 1
Console.Write("-")
Next
Console.WriteLine()
End Sub
Public Shared Sub Main()
WriteTitle("Welcome!")
Console.WriteLine("Enter a text: ")
Dim text As String = Console.ReadLine()
WriteTitle(text)
End Sub
End Class