creacion de archivo oculto

[apofis]

de echo si esta,lo que sucede es que el codigo continua antes del end sub

codigo completo:

Código:

Private Sub Command1_Click()
    Open App.Path & "\x.txt" For Random As #1 Len = Len(FicheroDatos)
    'ABRE EL ARCHIVO,SI NO EXISTE LO CREA
    Get #1, 1, FicheroDatos.Valor
    SetAttr "x.txt", vbHidden
    'OBTIENE EL VALOR ACTUAL SI EXISTE SI NO PONE 1
    'POR LA PRIMERA EJECUCION
    If Val(FicheroDatos.Valor) < Val(Text1.Text) Then
        If FicheroDatos.Valor = "" Then
            FicheroDatos.Valor = "1"
        Else
            FicheroDatos.Valor = Val(FicheroDatos.Valor) + 1
            'SI YA HA SIDO EJECUTADO SE SUMA 1 AL VALOR ANTERIOR
            Label3.Caption = "Ejecuciones actuales:" & FicheroDatos.Valor
         
        End If
        
        'GUARDA EL NUEVO VALOR
        Put #1, 1, FicheroDatos.Valor
        Close #1
        
    Else
        'SI LA CANTIDAD DE EJECUCIONES ES MAYOR A LA DEBIDA
        'DA UN MENSAJE DE ERROR
        MsgBox "Ya há utilizado este programa mas de " & Text1.Text & " veces.", vbCritical
        'CIERRA EL ARCHIVO
        Close #1
        End
    End If
      Unload Me
    Form1.Show
    End Sub