Visual Basic - Agregar un valor (nº) a un 'item'

Hola a todos. Estoy haciendo un conversor de unidades científicas y lo que hice fue agregar las unidades (Km, Hm...) como 'items' de un selectbox. Lo que quiero hacer es agregarle a cada 'item' un valor (por ejemplo, a Km, 6) y así cuando tu pongas a la unidad que quieres pasarlo (por ejemplo, a mm) le sume o reste su valor, y eso después convertirlo en un '1' seguido de tantos '0' como sea necesario. ¿Cómo podría hacer ésto? Saludos y gracias de antemano.

Hola Amigo, no entiendo muy bien lo que deseas hacer.

Por ello coloco algunas rutinas muy utiles:

X=format(Varible,"###,##,###.#0") 'Esto de dará un formato de Moneda

Agregar un Item concatenado a un control:

Primero arma la cadena y posterior a esto colocas

Cadena ="1: " & Cstr(total) & " Kilos" >>-----> Esto sería 1: 8 Kilios

ComboBox.aditem Cadena

Esto mismo puedes hacer para un ListBox y un Combo

Espero te sean de utilidad, Saludos.