vba starting with vb exe program

this is a interesting that i wrote the two different code for two versions of CDraw (11-12)

first for 11

'for 11
Private Sub Command1_Click()
'MsgBox "Tuncowsky'e Teşekkür Ediniz!) VbOk"
Unload Me
'Dim corelDRAW As Application
Dim kontakunltd As String
Dim Converter As String
Dim cDraw As Object
Dim gms As corelDRAW.GMSManager
If corelDRAW.Visible = True Then
Set cDraw = CreateDocument
corelDRAW.InitializeVBA
corelDRAW.Visible = True
Set gms = corelDRAW.GMSManager
GMSManager.RunMacro "kontakunltd", "Converter.start"
Else
Dim Retval
Retval = Shell("C:\Program Files\Corel\Corel Graphics 11\Programs\Coreldrw.exe", 0)
'Set cDraw = CreateObject("CorelDraw.Application")
Set cDraw = CreateDocument
corelDRAW.InitializeVBA
corelDRAW.Visible = True
Set gms = corelDRAW.GMSManager
GMSManager.RunMacro "kontakunltd", "Converter.start"
End If
End Sub

for 12:

'for 12
Private Sub Command1_Click()
MsgBox "Tuncowsky'e Teşekkür Ediniz!) VbOk"
Unload Me
Dim kontakunltd As String
Dim Converter As String
Dim cDraw As Object
Dim gms As corelDraw.GMSManager
If corelDraw.Visible = True Then
Set cDraw = CreateDocument
corelDraw.InitializeVBA
corelDraw.Visible = True
Set gms = corelDraw.GMSManager
GMSManager.RunMacro "kontakunltd", "Converter.start"
Else
Set cDraw = CreateObject("CorelDraw.Application")
cDraw.CreateDocument
cDraw.InitializeVBA
cDraw.Visible = True
Set gms = corelDraw.GMSManager
GMSManager.RunMacro "kontakunltd", "Converter.start"

End If
End Sub

little bit differences in the codes, but it works good.