jola yo tambien tengo ese problema me dice lo mismo yo estoy haciendo un programa de conversion de sistemas numericos y no se por que tengo vector bueno mejor les doy el codigo que he hecho este es de binario a binario jeje estupido no pero la gente puede probara hacer eso y tengo que tener todo listo
Private Sub Aceptar_Click()
If Option1 And Option5 Then
Dim bin As Integer
Dim residuo As Integer
Dim cosciente As Integer
Dim v()
Dim J As Integer
J = 0
Dim i As Integer
i = 0
bin = Val(Text1.Text)
While J = 15
ReDim Preserve v(J + 1)
cosciente = bin / 1E+29
residuo = bin Mod 1E+29
v(J) = cosciente
bin = residuo
J = J + 1
Wend
End If
For i = 0 To v(J) Step 1
If v(J) > 1 Then
Label13 = Text1
Else
Form3.Show
End If
Next i
End Sub
el error me lo tira en bin= val (text1.text)
por favor necesito ayuda
