代码::块调试无法运行并显示错误

Question

我已经看到了我类似问题的答案。但是有了这个答案，我的问题没有解决。 我为用Code :: Blocks编写的程序C运行调试器，但调试未运行并显示错误。

Option Explicit
Sub MyCode

Dim FSO
Dim sFile As String
Dim sSFolder As String
Dim sDFolder
Dim anObject As Object
sFile = "Filename.xlsm"
sSFolder = "C:\workspace"
Set FSO = CreateObject("Scripting.FileSystemObject")
sDFolder = FSO.GetAbsolutePathName("C:\") 
If Not FSO.FileExists(sSFolder & sFile) Then
    MsgBox "Specified File Not Found", vbInformation, "Not Found"
Else
    FSO.CopyFile (sSFolder & sFile), sDFolder, True
End If

End Sub

“这是我以前见过的答案” Code blocks debugging issue

Default Building to ensure sources are up-to-date Selecting target: 
 Debug ERROR: You need to specify a debugger program in the debuggers's settings. 
(For MinGW compilers, it's 'gdb.exe' (without the quotes)) 
(For MSVC compilers, it's 'cdb.exe' (without the quotes))

我已经遵循了。但就我而言，它仅找到gdb32.exe而不是gdb.exe。而且我遵循了gdb323.exe，但是我的问题没有解决。