de lo contrario sin if vb
Else debe ir precedido de un If. La causa y la solución de este error son las siguientes: se utiliza una declaración Else sin una declaración If coincidente.
Compruebe las otras estructuras de control dentro de la estructura If...End If y asegúrese de que estén emparejadas correctamente. También verifique si el bloque If tiene el formato correcto.
En su lugar, prueba esto
Dim nk As String
Dim n As Integer
Dim k As Integer
Si Command1.Caption = "Convertir" Entonces
n = Val(Text1.Text)
Hacer mientras n lt;gt 0 'Mira esto
< p; >k = n Mod 2n = n \ 2
nk = Str$(k) nk
Loop ' Y esto
Label1.Caption = nk
Command1.Caption = "Una vez más"
Si no
Label1.Caption = ""
Text1.Text = ""
Text1.SetFocus
Command1.Caption = "Convertir"
Finalizar si