Ci sarebbero un'infinità di modi ..... uno dei quali(il più semplice ma anche il più "superficiale"), potrebbe essere
codice:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
             MessageBox.Show(My.Computer.FileSystem.SpecialDirectories.MyDocuments.Replace("Documents", String.Empty))
End Sub
Facci sapere...
Ciao