combobox

[lop7]

hola, bueno si los numeros estan en secuencia como lo escribiste con esto lo harias.
abre un formulario nuevo y coloca un combo y un textbox.

Private Sub Combo1_Click()
Dim valor As Integer
If Combo1.ListIndex <> -1 Then
valor = (Val(Combo1.Text) * 100) + 200
Text1.Text = valor

End If
End Sub

Private Sub Form_Load()
Dim i As Integer

For i = 0 To 20
Combo1.AddItem i + 1
Next i
End Sub

esto es lo que entendi de lo que pedias sino vuelve a postear.

saludos...