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