Dim Folder As String = "C:"
Dim Folder As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)