Trim Batch run on CONNECT edition

Hi 

I need to trim my contour files by using batch process on CONNECT edition. It`s work on MicroStation 8 2004 version successfully. But it`s not working on CONNECT edition.I`m using japanese version.

I think my file have BASIC commands.I have no idea to correct with VBA .Can anyone tell me how can i fix this one? 

This is my batch file

Sub main
Dim startPoint As MbePoint
Dim point As MbePoint, point2 As MbePoint
Dim filename As String

Dim newname As String

Dim cSep As String
Dim i As Long
Dim j As Long

cSep= "\"

' ｺﾏﾝﾄﾞを起動
filename = MbeDgnInfo.dgnFileName

j=0
For i = Len(filename) To 1 Step -1
j=j+1

If Mid$(filename, i, 1) = cSep Then
Exit for
End If
Next

newname=left$(filename,len(filename)-j)&"\poli.txt"

'file Open
Open newname For Input As #1
MbeSendKeyin "active color 207"
MbeSendKeyin "place smartline"
Do Until EOF(1)
Input #1, point.x, point.y, point.z
MbeSendDataPoint point, 1%
Loop

close #1
'file Open
Open newname For Input As #1
Input #1, point.x, point.y, point.z
MbeSendDataPoint point, 1%

MbeSendKeyin "mdl load selectby"
MbeSendKeyin "selectby color off"
MbeSendKeyin "selectby color 207"
MbeSendKeyin "selectby weight off"
MbeSendKeyin "selectby style off"
MbeSendKeyin "selectby level all off"
MbeSendKeyin "selectby level all"
MbeSendKeyin "selectby mode inclusive"
MbeSendKeyin "selectby type all"
MbeSendKeyin "selectby execute"
MbeSendKeyin "CHANGE LOCK"
MbeSendKeyin "mdl unload selectby"

MbeSendKeyin "fit view extended"
MbeSendKeyin "selview 1"
MbeSendKeyin "LOCK FENCE VOID CLIP"
MbeSendKeyin "place fence element"
Input #1, point.x, point.y, point.z
MbeSendDataPoint point, 1%
MbeSendDataPoint point, 1%
MbeSendKeyin "FENCE DELETE"
MbeSendKeyin "SELVIEW 1 "
' 現在のｺﾏﾝﾄﾞにﾘｾｯﾄを送ります
MbeSendReset

MbeSendKeyin "mdl load selectby"
MbeSendKeyin "selectby color off"
MbeSendKeyin "selectby weight off"
MbeSendKeyin "selectby style off"
MbeSendKeyin "selectby level all off"
MbeSendKeyin "selectby level all"
MbeSendKeyin "selectby mode exclusive"
MbeSendKeyin "selectby type none"
MbeSendKeyin "selectby type text"
MbeSendKeyin "selectby execute"
MbeSendKeyin "CHANGE LOCK"
MbeSendKeyin "mdl unload selectby"

MbeSendKeyin "LOCK FENCE VOID overlap"
MbeSendKeyin "FENCE DELETE"
MbeSendKeyin "SELVIEW 1 "

MbeSendKeyin "choose all"
MbeSendKeyin "CHANGE UNLOCK"

MbeSendKeyin "mdl load selectby"
MbeSendKeyin "selectby color off"
MbeSendKeyin "selectby color 207"
MbeSendKeyin "selectby weight off"
MbeSendKeyin "selectby style off"
MbeSendKeyin "selectby level all off"
MbeSendKeyin "selectby level all"
MbeSendKeyin "selectby mode inclusive"
MbeSendKeyin "selectby type all"
MbeSendKeyin "selectby execute"
MbeSendkeyin "delete element"
MbeSendDataPoint point, 1%
MbeSendKeyin "mdl unload selectby"

MbeSendKeyin "fit view extended"
MbeSendKeyin "selview 1"

MbeSendKeyin "FILEDESIGN"
MbeSendKeyin "save design"

End Sub