帮我写一个VBA，内容是移动文件夹从c:\123到D:\456

以下是一个简单的 VBA 代码示例，可以将名为 "123" 的文件夹从 C:\ 移动到 D:\456：

Sub MoveFolder()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    '源文件夹路径
    Dim sourceFolder As String
    sourceFolder = "C:\123"
    
    '目标文件夹路径
    Dim targetFolder As String
    targetFolder = "D:\456"
    
    '检查源文件夹是否存在，如果不存在则退出
    If Not FSO.FolderExists(sourceFolder) Then
        MsgBox "源文件夹不存在！", vbCritical, "错误"
        Exit Sub
    End If
    
    '如果目标文件夹不存在，则创建目标文件夹
    If Not FSO.FolderExists(targetFolder) Then
        FSO.CreateFolder targetFolder
    End If
    
    '移动文件夹
    FSO.MoveFolder sourceFolder, targetFolder
    
    MsgBox "文件夹已成功移动！", vbInformation, "完成"
End Sub

请注意，这只是一个简单的示例，有许多可能的变化和异常情况，因此请根据您的实际需求进行修改和测试。