SMS Messaging through WiNCC FLEXI PC RUNTIME

Dear All,
I am using WInCC Flexible 2008 SP2 as PC RUNTIME for my project.
I want to send SMS through Script present in WInCC Flexi 2008 PC Runtime.
I have already developed script for sending SMS through Serial port using GSM Modem. The script is perfectly working in Windows XP.
But unfortunately my client has purchased WIndows7 32 Bit os.
all thigns are working perfectly except for sending SMS script.
i alkso have registered actix controls in windows7.
i.e. MSCOMM32.ocx.
by many diagnostics i found that the script is not opening the port in Windows7. The mendtioned script is as follow;

Dim SMSSend
Dim SMS, SMS2
Dim buffer, DAM_FT, DAM_INCH, MyDate, MyTime
Dim S
Dim NoArr(6)

DAM_FT=(POND_WATER_DISPLAY)
DAM_INCH=(Inch_Value)
MyDate= Date
MyTime=Time

INCREMENT_VALUE=INCREMENT_VALUE+1
If (INCREMENT_VALUE > 15) Then
INCREMENT_VALUE=0
End If
'here you can add all the cell numbers you want to send to
Set SMSSend = CreateObject("MSCommLib.MSComm")
If NO1_MOBILE_INT=15 Then
NoArr(0)=MOBILE_NO_1
End If
If NO2_MOBILE_INT=15 Then
NoArr(1)=MOBILE_NO_2
End If
If NO3_MOBILE_INT=15 Then
NoArr(2)=MOBILE_NO_3
End If
If NO4_MOBILE_INT=15 Then
NoArr(3)=MOBILE_NO_4
End If
If NO5_MOBILE_INT=15 Then
NoArr(4)=MOBILE_NO_5
End If
If NO6_MOBILE_INT=15 Then
NoArr(5)=MOBILE_NO_6
End If
For S = 0 To 5
SMSSend.CommPort = 1
SMSSend.Settings = "9600,N,8,1"
SMSSend.InputLen = 0
SMSSend.Handshaking = 0
SMSSend.PortOpen = True
SMS="VASANA BARRAGE WATER STORAGE CURRENT LEVEL IS "
SMS2=". CURRENT INCOMING FLOW IS "
If (INCREMENT_VALUE = 1) Then
SMSSend.Output = "AT" & Chr(13)
Data_Input=SMSSend.Input
End If

If (INCREMENT_VALUE=2) Then
SMSSend.Output = "AT+CMGF=1" & Chr(13)
Data_Input=SMSSend.Input
End If
If (INCREMENT_VALUE=3) Then
SMSSend.Output = "AT+CMGS=" & Chr(34) & NoArr(S) & Chr(34) & Chr(13) '& Len(SMS) / 2 & Chr$(13)
Data_Input=SMSSend.Input
End If
If (INCREMENT_VALUE =4) Then
SMSSend.Output = SMS & DAM_FT & " Ft " & DAM_INCH & " Inch at " & MyTime & MyDate & SMS2 & INCOMING_FLOW & " CUSEC." + Chr(26)
Data_Input=SMSSend.Input
End If
SMSSend.PortOpen = False

Next