Si únicamente necesitas sacar el nombre del usuario puedes usar:

    Environment.UserName

Actualización:

    

    Dim ruta As String = "C:\Users\" + Environment.UserName