Dim user As String = "Sakura" 'ユーザに何らかの手段でアカウント名を入れてもらうとする ' 文字列連結でドキュメントへのパスを組み立てる Dim documentPath As String = "C:\Users\" + user + "\Documents" ' 後はドキュメントの中をいじったりする