If VarExists = 0 Then '1st time this VAR appears in this PGM, add to reg and enter value)
VarReg(VarReg_flag, 0) = VariableName
Idisplay.Text = Recording(FNum, Step_count, 1) & " = ?"
BtnVarEnt.BringToFront
For I = 0 To 7
Idisplay.TextColor = Colors.Red
BtnVarEnt.TextColor = Colors.Black
If I < 2 Then Beep1.Beep
Sleep(150)
Idisplay.TextColor = Colors.Black
BtnVarEnt.TextColor = BVE
If I < 1 Then Beep1.Beep
Sleep(150)
Next
Return
End If