Code Problem [RESOLVED]

[$peed & $ex]

If Form3.Text1.Text = "" Then
On Error GoTo 1
    With CD1
        .DialogTitle = "Open Name File"
        .Filter = "All Supported Types|*.usr;*.txt;*.dat|"
        .ShowOpen
Dim sText As String
    Dim x As Integer
    x = FreeFile
    On Error Resume Next
    Open .FileName For Input As #x
    While Not EOF(x)
        Input #x, sText$
            If sText$ = "" Then
            Exit Sub
            Else
            List1.AddItem sText$
            DoEvents
            End If
    Wend
    Close #x
        End With
Label1.Caption = "Word's: " & List1.ListCount
    Exit Sub
1
End If
End Sub
Else
If Check1.Value = vbChecked Then
On Error GoTo 1
    With CD1
        .DialogTitle = "Open Name File"
        .Filter = "All Supported Types|*.usr;*.txt;*.dat|"
        .ShowOpen
Dim sText As String
    Dim x As Integer
    x = FreeFile
    On Error Resume Next
    Open .FileName For Input As #x
    While Not EOF(x)
        Input #x, sText$
            If sText$ = "" Then
            Exit Sub
            Else
            List1.AddItem sText$
            DoEvents
            End If
    Wend
    Close #x
        End With
Label1.Caption = "Word's: " & List1.ListCount
    Exit Sub
1
End If
End Sub

This is my code im using but somehwere in it its really messed up. I appreciate all the help and would love some with this problem