Module Module1
    Sub Main()
        Dim Text As String
        Console.WriteLine("Hallo")
        Microsoft.VisualBasic.Interaction.Shell("runas /u:EIBE2000.PC\met" & _
          "regedit")
 
        'Text = Console.ReadLine()
    End Sub
End Module