Public Sub Main()
        Dim userName, passWord As String
        Console.Write("Bitte geben Sie Ihren Namen ein: ")
        userName = Console.ReadLine()
        Console.Write("Bitte geben Sie Ihr Passwort ein: ")
        passWord = Console.ReadLine
        If passWord = "passwort" Then
            Dim t As New Threading.Thread(AddressOf dosomething)
            t.Start()
        End If
    End Sub
 
    Sub dosomething()
        For i As Long = 0 To 99999999
            Console.WriteLine(i * i / (0.32114542 * 0.90002003828))
        Next
    End Sub