What Is Missing At The End of This Macro?

Sub main


MbeCurrentTransform.dgnUnits
IF MbeSettings.TextLineLength = 101 THEN
PROC1
IF MbeSettings.TextLineLength = 102 THEN
PROC2
IF MbeSettings.TextLineLength = 103 THEN
PROC3
IF MbeSettings.TextLineLength = 104 THEN
PROC4
IF MbeSettings.TextLineLength = 105 THEN
PROC5

PROC1:
MbeSendKeyin "LV=6"
GoTo LABEL_NEXT
PROC2:
MbeSendKeyin "LV=19"
GoTo LABEL_NEXT
PROC3:
MbeSendKeyin "LV=31"
GoTo LABEL_NEXT
PROC4:
MbeSendKeyin "LV=44"
GoTo LABEL_NEXT
PROC5:
MbeSendKeyin "LV=56"

LABEL_NEXT:
MbeSendKeyin "CO=0"
MbeSendKeyin "WT=0"
MbeSendKeyin "LC=0"
MbeSendKeyin "RC=PROC.CEL"
MbeSendKeyin "AC=PV"
MbeSendCommand "/PACELR"

End Sub

[Teresa Zager]

Mark.Madsen@Bayercropscience.com wrote:

Sub main


MbeCurrentTransform.dgnUnits
IF MbeSettings.TextLineLength = 101 THEN
PROC1
IF MbeSettings.TextLineLength = 102 THEN
PROC2
IF MbeSettings.TextLineLength = 103 THEN
PROC3
IF MbeSettings.TextLineLength = 104 THEN
PROC4
IF MbeSettings.TextLineLength = 105 THEN
PROC5

PROC1:
MbeSendKeyin "LV=6"
GoTo LABEL_NEXT
PROC2:
MbeSendKeyin "LV=19"
GoTo LABEL_NEXT
PROC3:
MbeSendKeyin "LV=31"
GoTo LABEL_NEXT
PROC4:
MbeSendKeyin "LV=44"
GoTo LABEL_NEXT
PROC5:
MbeSendKeyin "LV=56"

LABEL_NEXT:
MbeSendKeyin "CO=0"
MbeSendKeyin "WT=0"
MbeSendKeyin "LC=0"
MbeSendKeyin "RC=PROC.CEL"
MbeSendKeyin "AC=PV"
MbeSendCommand "/PACELR"

End Sub

Mark,

I am suspicious of that series of If statements at the beginning.
Shouldn't they look like this:

IF MbeSettings.TextLineLength = 101 THEN GOTO PROC1
IF MbeSettings.TextLineLength = 102 THEN GOTO PROC2
IF MbeSettings.TextLineLength = 103 THEN GOTO PROC3
IF MbeSettings.TextLineLength = 104 THEN GOTO PROC4
IF MbeSettings.TextLineLength = 105 THEN GOTO PROC5

Teresa Zager
Bentley

On 11 Apr 2005 10:06:22 -0700, Mark.Madsen@Bayercropscience.com wrote:

Sub main


MbeCurrentTransform.dgnUnits
IF MbeSettings.TextLineLength = 101 THEN
PROC1
IF MbeSettings.TextLineLength = 102 THEN
PROC2
IF MbeSettings.TextLineLength = 103 THEN
PROC3
IF MbeSettings.TextLineLength = 104 THEN
PROC4
IF MbeSettings.TextLineLength = 105 THEN
PROC5

PROC1:
MbeSendKeyin "LV=6"
GoTo LABEL_NEXT
PROC2:
MbeSendKeyin "LV=19"
GoTo LABEL_NEXT
PROC3:
MbeSendKeyin "LV=31"
GoTo LABEL_NEXT
PROC4:
MbeSendKeyin "LV=44"
GoTo LABEL_NEXT
PROC5:
MbeSendKeyin "LV=56"

LABEL_NEXT:
MbeSendKeyin "CO=0"
MbeSendKeyin "WT=0"
MbeSendKeyin "LC=0"
MbeSendKeyin "RC=PROC.CEL"
MbeSendKeyin "AC=PV"
MbeSendCommand "/PACELR"

End If

End If
End If
End If
End If

End Sub

HTH
Bill

carver33@bellsouth.net wrote:

On 11 Apr 2005 10:06:22 -0700, Mark.Madsen@Bayercropscience.com
wrote:

Sub main


MbeCurrentTransform.dgnUnits
IF MbeSettings.TextLineLength = 101 THEN
PROC1
IF MbeSettings.TextLineLength = 102 THEN
PROC2
IF MbeSettings.TextLineLength = 103 THEN
PROC3
IF MbeSettings.TextLineLength = 104 THEN
PROC4
IF MbeSettings.TextLineLength = 105 THEN
PROC5

PROC1:
MbeSendKeyin "LV=6"
GoTo LABEL_NEXT
PROC2:
MbeSendKeyin "LV=19"
GoTo LABEL_NEXT
PROC3:
MbeSendKeyin "LV=31"
GoTo LABEL_NEXT
PROC4:
MbeSendKeyin "LV=44"
GoTo LABEL_NEXT
PROC5:
MbeSendKeyin "LV=56"

LABEL_NEXT:
MbeSendKeyin "CO=0"
MbeSendKeyin "WT=0"
MbeSendKeyin "LC=0"
MbeSendKeyin "RC=PROC.CEL"
MbeSendKeyin "AC=PV"
MbeSendCommand "/PACELR"

End If
End If
End If
End If
End If

End Sub

HTH
Bill

Thanks for your help.