Excel - CORREGIR ERROR

Private Sub UserForm_Initialize()

'Código para ocultar la barra de título, haciendo uso de las API

    Dim lngWindow As Long, lFrmHdl As Long

    lFrmHdl = FindWindowA(vbNullString, Me.Caption)

    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)

    lngWindow = lngWindow And (Not WS_CAPTION)

    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)

    Call DrawMenuBar(lFrmHdl)

'-----------------------------------------------------------------------------------------

'Cargamos el formulario y establecemos un timer para que se cierre automáticamente

Dim Contador, Maximo, Intervalo As Integer

Dim Inicio As Double

Dim X

Maximo = 300

Me.Show

    For Contador = 1 To Maximo

        Inicio = Timer

            Do Until Timer - Inicio > Intervalo

                X = DoEvents()

            Loop

            Me.lbl_Bar.Width = Contador

            Me.lbl_Percent.Caption = "Cargando datos!..." & Format (Contador / Maximo, "Percent")

    Next Contador

    frm_Login.Show

    End

End Sub