Imports System

Public Module Module1

    Public Sub main()

        Dim NumberOfSpaces, NumberOfSymbols, MaxNumberOfSymbols As Integer

        Dim Symbol As String

        Call SetValues(NumberOfSymbols, NumberOfSpaces, Symbol, MaxNumberOfSymbols)

        Do Until NumberOfSymbols > MaxNumberOfSymbols

            OutputSpaces(NumberOfSpaces)

            OutputSymbols(NumberOfSymbols, Symbol)

            AdjustValuesForNextRow(NumberOfSpaces, NumberOfSymbols)

        Loop

        Console.ReadLine()

    End Sub

    Function SetValues(ByVal NumberOfSymbols As Integer, ByVal NumberOfSpaces As Integer, ByVal Symbol As String, ByVal MaxNumberOfSymbols As Integer) As Integer

​

        Console.WriteLine("Input your Symbol")

        Symbol = Console.ReadLine

        InputMaxNumberOfSymbols(MaxNumberOfSymbols)

        NumberOfSpaces = (MaxNumberOfSymbols - 1) / 2

        NumberOfSymbols = 1

    End Function

​

    Function InputMaxNumberOfSymbols(ByVal MaxNumberOfSymbols As Integer)

​

        Do Until MaxNumberOfSymbols Mod 2 = 1

            Console.WriteLine("Input Max Number Of Symbols, Odd Numbers ONLY plz")

            MaxNumberOfSymbols = Console.ReadLine

        Loop

    End Function

​

    Function OutputSpaces(ByVal NumberOfSpaces As Integer)

        For Count = 1 To NumberOfSpaces

            Console.WriteLine(" ")

        Next

    End Function

​

    Function OutputSymbols(ByVal NumberOfSymbols As Integer, ByVal Symbol As String)

        For Count = 1 To NumberOfSymbols

            Console.WriteLine(Symbol)

        Next

        Console.WriteLine(".")

    End Function

​

    Function AdjustValuesForNextRow(ByVal NumberOfSpaces As Integer, ByVal NumberOfSymbols As Integer)

        NumberOfSpaces = NumberOfSpaces - 1

        NumberOfSymbols = NumberOfSymbols + 2

    End Function

End Module