C# と VB.NET の質問掲示板

複数のフォルダーをコピーして移動したいのですが、どうしてもエラーが出ます。
考え方が間違ってますでしょうか？

Option Explicit
Private Sub Form_Load()

    Dim ret As FileSystemObject
    Set ret = New FileSystemObject

'コピーと移動
    Call ret.CopyFile("C:\AA" & "C:\BB", "C:\DD")
    If ret Then
        MsgBox "コピー完了"
    Else
        MsgBox "異常終了"
    End If

    Call ret.MoveFile("C:\AA" & "C:\BB", "C:\DD")
    If ret Then
        MsgBox "移動完了"
    Else
        MsgBox "異常終了"
    End If

End Sub