Si únicamente necesitas sacar el nombre del usuario puedes usar:
Environment.UserName
Actualización:
Dim ruta As String = "C:\Users\" + Environment.UserName