Posted on 2003-11-07
Could somebody please help me with a simple loop. I need the code below to take the value entered into "b" and increment it until it reaches b+12, then exit. I've tried different loops and they have all failed or got stuck in an enternal loop. Any assistance would be greatly appreciated. Thank you.
On Error GoTo ErrorHandler
Const NEVER_TIME_OUT = 0
Dim BS As String ' Chr$(rcBS) = Chr$(8) = Control-H
Dim ESC As String ' Chr$(rcESC) = Chr$(27) = Control-[
BS = Chr$(rcBS)
ESC = Chr$(rcESC)
b = Application.InputBox("Enter the beginning VT1 SDF")
.Transmit "ent-vt1::vt1-" & b & "-1&&-28:veo;"
.MsgBox Err.Description, vbExclamation + vbOKOnly