Hola German:
------------------------------------------------------------­--------------------------
En este proyecto en Visual Basic 6.0 podrás explicar el control inputbox, y controlar la entrada de datos, la conversión a numeros enteros de dos formas diferentes, como establecer a traves del operador mod, si el mayor es múltiplo del menor y otras cosillas, que hemos explicado suficientemente.

Simplemente en el formulario pon un Commandbutton y observa el resultado, luego estudia bien a través de la explicación el funcionamiento, para lograr un correcto entendimiento.

Bueno abajo te dejamos el código esperando que sea de tu agrado e interés.

------------------------------------------------------------­--------------------------
'Es necesario controlar que no hemos escrito mal las variables
'por ello Option Explicit
Option Explicit

Private Sub Command1_Click()
'Declaramos Variables
Dim numerouno As Long
Dim numerodos As Long
'Inicializamos variables
numerouno = 0
numerodos = 0
'recordar que de acuerdo a la configuración de los teclados, etc... a veces el separador decimal
'es la coma y a veces es el punto
'Si el usuario hace clic en Aceptar o presiona Entrar,
'la función InputBox devuelve lo que haya en el cuadro de texto.
'Si el usuario hace clic en Cancelar,
'la función devuelve una cadena de caracteres de longitud cero ("").
'Entonces si se ingresan datos para el número uno
numerouno = Int(Val(InputBox("Ingrese un número cualquiera", "Si no es entero se convertira")))
'Si se presionó cancelar o aceptar sin ingresar valor alguno
If numerouno = Empty Then
'Se informa
MsgBox "No ha ingresado datos para el número UNO, vuelva a intentarlo.", vbInformation, "Analizador Numérico"
'Y se sale del procedimiento
Exit Sub
End If
'Para el valor número dos
'Entonces si se ingresan datos para el número dos

'Fix también devuelve el valor entero de un número
numerodos = Fix(Val(InputBox("Ingrese un número cualquiera", "Si no es entero se convertira")))
'Caso contrario si se presionó cancelar o aceptar sin ingresar valor alguno
If numerodos = Empty Then
'Se informa
MsgBox "No ha ingresado datos para el número DOS, vuelva a intentarlo.", vbInformation, "Analizador Numérico"
'Y se sale del procedimiento
Exit Sub
End If
'Finalmente analizamos los numeros ingresados
'Si el numero uno es mayor al número dos
If numerouno > numerodos Then
'lo informamos
MsgBox "El Primer numero ingresado es mayor al segundo! " & numerouno & " es mayor a " & numerodos, vbInformation, "Analizador Numérico"
'Utilizamos el operador mod para sacar el resto de una división entre el número uno que es mayor
'y el número dos, y si es igual a cero, informamos que es múltiplo, caso contrario también le hacemos saber que no lo es.
If numerouno Mod numerodos = 0 Then
MsgBox "El número: " & numerouno & " es múltiplo de " & numerodos, vbInformation, "Analizador Numérico"
Else
MsgBox "El número: " & numerouno & " no es múltiplo de " & numerodos, vbInformation, "Analizador Numérico"
End If
Else
'Lo mismo que en el paso anterior pero para el caso que el número dos sea mayor al primero.
MsgBox "El Segundo numero ingresado es mayor al Primero! " & numerodos & " es mayor a " & numerouno, vbInformation, "Analizador Numérico"
If numerodos Mod numerouno = 0 Then
MsgBox "El número: " & numerodos & " es múltiplo de " & numerouno, vbInformation, "Analizador Numérico"
Else
MsgBox "El número: " & numerodos & " no es múltiplo de " & numerouno, vbInformation, "Analizador Numérico"
End If
End If
End Sub


--------------------------------------------------------------------------------------

Un Abrazo.

Luis

----------------------------
www.bragadomas.com.ar
www.bragadomas.com
http://bragadohoy.blogspot.com/
----------------------------
info@bragadomas.com
luis_pedro_mendez@yahoo.com.ar
----------------------------
http://www.foroswebgratis.com/foro-foro_de_programacion_en_general-152776.htm
http://www.bragadomas.com/forodeprogramacion/index.php
----------------------------