Visual Basic - COMO USAR EL INPUTBOX

Hola
Alguen me puede decir porfavor la sintaxis del inputbox y como capturo la variable para luego almacenarla en una base de datos.
Gracias

dim x as variant
x=inputbox("introdusca un valor numerico")
data1.recorset.addnew
data1.recordset.fields(0)=val(x)
data1.recordset.update
'listo es todo, bye y de nada

enves de guardarla usar la variable como contraseña para abrir otro formulario usandolo desde la base de datos