yo hice algo asi:
Dim s, n As Int32
'sueldo(s) = Convert.ToDouble(txtSueldo.Text)

'nombre(n) = txtNombre.Text


'For j As Int32 = 0 To sueldo.Count - 1

' If sueldo(j) < 1000 And sueldo(j) > 0 Then
' sueldo(j) = s
' indice_sueldo += 1
' End If
'Next
'For i As Int32 = 0 To indice_sueldo - 1
' ListBox2.Items.Add(Convert.ToString(nombre(i) & " " & sueldo(s)))
' ListBox1.Items.Remove(sueldo(i))
'Next