eigyou様、shu様、ご返答いただき、どうもありがとう御座います。
エラーになる原因が解りました。
Dim DataPath As String = Console.WriteLine( _
    System.Environment.GetFolderPath(Environment.SpecialFolder.Personal))と記述しておりました
Console.はいらないのですね、外して実行した所、無事取得出来ました。
大変助かりました。両名様共、感謝致します。
まだまだ、勉強不足を痛感致しました。今後共ご指導お願い致します。