Estoy creando un programa para hacer la conversión de milímetros centímetros pero en esta parte no me sale y no se muy bien como es porque ya lo he intentado de varias maneras aversi me pueden ayudar.


Private Sub command1_Click()
    If Option1 = True Then Text2 = Val(Text1) * 1000
    ElseIf Option2 = True Then Text2 = Val(Text1) * 100
    ElseIf Option3 = True Then Text2 = Val(Text1) * 10
    ElseIf Option4 = True Then Text2 = Val(Text1) / 1000
    End If
End Sub

me sale error en la primera linea "Private Sub command1_Click()" y me dice que Else sin If. Ojala me puedan ayudar.

saludos 

Dessa pues muchas gracias fue tan sencillo la manera en como era la solución que me quede sorprendido. Y una ves mas gracias!!

gracias Dessa lo acabo de probar y tambien me funciono.

pero tengo otro problema también, estoy creando un programa el cual me da la tabla de multiplicar que yo quiera pero no se da enter despues de terminar por ejemplo:
2x2=4"aqui salen dos cuadritos"2x3=6"vuelven a salir dos cuaditos"2x4=8
y asi se va pero no se da el enter despues de que termina la primera multiplicacion osea quiero que se vea asi:
2x2=4
2x3=6
2x4=8

este es el codigo que tengo:
Private Sub Command1_Click()
    Dim res As Long, retorno
    For n = 1 To 10
    res = Text1 * n
    retorno = Chr(13) & Chr(10)
    Text2 = Text2 & Text1 & "X" & n & "=" & res & retorno
    Next n
End Sub

saludos!

Ponle la propiedad de Multiline al textbox en TRUE y de pasada aprende visual basic

ps estoy aprendiendo pero lo que pasa esque como la escuela donde me dan clases de esto estara cerrada asta el 18 por causa de la influenza pues esperaba que me ayudaran.

pero si te molesta ayudar mejor ni contestes porque algunas otras personas que si te ayudan sin poner peros como tu.