Error: Constant expression is required

[ashiremath]

Hi All
Below the code giving me the error is
Constant expression is required.
Please help me for this program.

Private Sub Send_InputChoice()
Dim Input_String As Integer

Const n As Integer = chs
n = chs

Do Until n = 0
Input_String = n
oLaunch.Write(Input_String & vbCrLf)
txtOutput.Text = txtOutput.Text & Input_String
txtOutput.SelectionStart = Len(txtOutput.Text)
If poweroff = "off" Then
n = n - 1
'Next n
End If
Loop
End Sub

[QVeen72]

Hi,

When you declare a Constant, you can not assign a Variable value, it has to be declared explicitly :

Const n As Integer = 20

Regards
Veena