Macro Dialog Not Responding

I am currently writing a macro that will add a task to a string: I have created a dialog and the general framework, but I cannot get the dialog to react when a radio button is selected. I looked at the example in the help, but cannot find any more detailed explanations. The help in the macro editor does not open.

Here's my code. Anyone see what i am doing wrong? The code itself isn't very complex.

Fullscreen
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
''Adds a query as a task to a string.
Dim i As Integer
Sub Main
'Initialize variables
Dim prj As PslProject
Dim trn As PslTransList
Dim TransString As PslTransString
Dim TransStringID As String
'Get active project
Set prj = PSL.ActiveProject
If prj Is Nothing Then
MsgBox("Could not find a selected project. Open a project and run the macro again.",vbOkOnly,"Project Not Found")
Exit Sub
End If
'Get active target list
Set trn = PSL.ActiveTransList
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Any help would greatly be appreicated.

Best regards,

Robert