Il primo :

Dim UserName As String = System.Environment.UserName