Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    sub name(byref full as string)

        full = console.readline()

    end sub

    function calculate(byval length as string)

        return length.length() - 1

    end function

    sub output(byval final as string)

        console.writeline("Your name is, " & final & ", is " & calculate(final) & " characters.")

    end sub

    Public Sub Main()

        console.writeline("What is your first and last name?")

        dim fullname as string = ""

        name(fullname)

        output(fullname)

    End Sub

End Module