QBasic to VB .NET Translation

[whidbey]

Here's the QB Code. I tried to translate it to VB .NET Console code. See translated code below

CLS
L1% = 0: X1% = 0: X2% = 0: X3% = 0
LOCATE 2, 1
PRINT "Enter name";
Sw1% = 1
WHILE Sw1% = 1
    INPUT A$
    L1% = LEN(A$)
    FOR X1% = 1 TO L1%
        X2% = ASC(MID$(A$, X1%, 1))
        IF X2% > 90 THEN X2% = X2% - 32
        X2% = X2% - 64
        X2% = X2% * 6
        X3% = X3% + X2%
    NEXT X1%
    LOCATE 4, 1
    PRINT A$; " = "; X3%
    B$ = ""
    WHILE B$ = ""
        B$ = INKEY$
    WEND
    LOCATE 6, 1
    PRINT "Again?"
    B$ = ""
    WHILE B$ = ""
        B$ = INKEY$
    WEND
    IF B$ <> "Y" AND B$ <> "y" THEN
        Sw1% = 0
    ELSE
        L1% = 0: X1% = 0: X2% = 0: X3% = 0
        A$ = "": B$ = ""
        CLS
        LOCATE 2, 1
        PRINT "Enter name";
    END IF
WEND
CLS
LOCATE 2, 1
PRINT "Thank you for using 666 Searcher."
END 

Here's my code after translating. But somehow I stuck and it doesn't work:

Module Module1
 
    Sub Main()
        Dim L1 As Int16 = 0
        Dim X1 As Int16 = 0
        Dim X2 As Int16 = 0
        Dim X3 As Int16 = 0
        Dim INKEY As String
        'dim LOCATE as Int16 (2, 1)
        Console.WriteLine("Enter name")
        Dim Sw1 As Int16 = 1
        While Sw1 = 1
            Dim A As String
            Console.Read(A)
            L1 = Len(A.ToString())
            For X1 = 1 To L1
                X2 = Asc(Mid(A, X1, 1))
                If X2 > 90 Then X2 = X2 - 32
                X2 = X2 - 64
                X2 = X2 * 6
                X3 = X3 + X2
            Next X1
            'LOCATE(4, 1)
            Console.WriteLine(A + " = " + X3)
            Dim B As String = ""
            While B = ""
                B = INKEY
            End While
            'LOCATE(6, 1)
            Console.WriteLine("Again?")
            B = ""
            While B = ""
                B = INKEY
            End While
            If B <> "Y" And B <> "y" Then
                Sw1 = 0
            Else
                L1 = 0 : X1 = 0 : X2 = 0 : X3 = 0
                A = "" : B = ""
                'LOCATE(2, 1)
                Console.WriteLine("Enter name")
            End If
        End While
        'LOCATE(2, 1)
        End
 
    End Sub
 
End Module

[Pirate]

Dude , QBasic days had gone .

[Edneeis]

What is this code suppose to do?

[Edneeis]

I think this MAY be what you are after:

Module Module1
 
    Sub Main()
        Console.WriteLine("Enter name:")
        Dim ret As String = Console.ReadLine
        Console.WriteLine(ret & " = " & Encrypt(ret))
        Console.WriteLine("Again?")
        ret = Console.ReadLine
        If ret.ToLower = "y" Then
            'have method call itself to repeat
            Main()
        End If
    End Sub
 
    Public Function Encrypt(ByVal normal As String) As String
        Dim cnt As Integer
        'the string's 1st char is at 0
        'so we start at 0 and go 1 short of the length
        Dim cntMax As Integer = normal.Length - 1
        'this handles an errors as a result of a blank string
        If cntMax < 0 Then cntMax = 0
        Dim result As String
        For cnt = 0 To cntMax
            Dim tmp As Integer = Asc(normal.Substring(cnt, 1))
            If tmp > 90 Then tmp = tmp - 32
            tmp = tmp - 64
            tmp = tmp * 6
            result &= tmp
        Next
        Return result
    End Function
 
End Module

[whidbey]

See this site:
http://www.theforbiddenknowledge.com...des/words.html

That's what the code is supposed to do.

@ Pirate:
I know that. See that site. That's why I wanna translate it!

[Edneeis]

You ever hear of the spanish inquisition? Any way using what I posted and the code you have you should be able to figure it out.