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

n = 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