[RESOLVED] Listbox question

[eyestrain]

i have this code with my listbox

Private Sub Command1_Click()

If List1.ListIndex = -1 Then Exit Sub
Text1.Text = "press 2945#*3101#"


If List1.ListIndex = 0 Then Exit Sub
Text1.Text = "press 2945#*7101#"

If List1.ListIndex = 1 Then Exit Sub
Text1.Text = "press 2945#*7101#"

If List1.ListIndex = 2 Then Exit Sub
Text1.Text = "press 2945#*2601#"

If List1.ListIndex = 3 Then Exit Sub
Text1.Text = "press 2945#*9701#"

If List1.ListIndex = 4 Then Exit Sub
Text1.Text = "press 2945#*1201#"

If List1.ListIndex = 5 Then Exit Sub
Text1.Text = "press 2945#*1201#"

If List1.ListIndex = 6 Then Exit Sub
Text1.Text = "press 2945#*3311#"

If List1.ListIndex = 7 Then Exit Sub
Text1.Text = "press 2945#*7101#"

If List1.ListIndex = 8 Then Exit Sub
Text1.Text = "press 2945#*7101#"

End Sub

Private Sub Form_Load()

With List1

.AddItem "LG C3100"

.AddItem "LG C3380"

.AddItem "LG F2300"

.AddItem "LG KE260"

.AddItem "LG KE970"

.AddItem "LG KG120"

End With

End Sub

the code is working perfect, but its badly coded because i have 50pcs of LG MODELS so the code If List1.ListIndex = X Then Exit Sub
Text1.Text = "press bla bla" is very long,

is there any way to make this short?
sorry for being a noob im really a beginner

[FireXtol]

Select Case List1.ListIndex
 Case 0
  Text1.Text = "press 2945#*3101#"
 Case Is < 3, Is > 7
  Text1.Text = "press 2945#*7101#"
 Case 3
  Text1.Text = "press 2945#*2601#"
 Case 4
  Text1.Text = "press 2945#*9701#"
 case 5 To 6 'or 5, 6 can be used
  Text1.Text = "press 2945#*1201#"
 case 7
  Text1.Text = "press 2945#*3311#"
 case else
  text1.text = "not found"
End Select

Every comma in a Case [Is] X statement is basically a logical OR.

You can also specify ranges, such as 5 to 6, or 1 to 100, etc. Is is only required for comparisons, such as >, <, =>, <=, <>.

[todd.kauffman]

You could use a SELECT CASE statement instead of a bunch of IF's.

[eyestrain]

thanks man i will try it tomorrow,