Try this approach. It creates a new folder in the destination with the same name as the source folder, copies its contents, and deletes the source folder (essentially the same thing as moving it). The inputs remain Folder_Path and Destination.
Success = True
Message = ""
If Not Folder_Path.EndsWith("\") Then
Folder_Path &= "\"
Dim newDirectory As String = System.IO.Path.Combine(Destination, Path.GetFileName(Path.GetDirectoryName(Folder_Path)))
If Not (Directory.Exists(newDirectory)) Then
Catch e As Exception
Success = False
Message = e.Message
Ensure that you include the System.IO namespace in the Code Options of your object. The Code Options can be found by double-clicking the description box on the Initialize Page/Action and choosing the appropriate tab.