Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Dim Username as String

        Dim Life as Char

        Console.WriteLine("What is your username?")

        Username = Console.ReadLine()

        Life = GetChar(USername, 1)

        Console.Writeline(Life)

    End Sub

End Module