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

[MartinLiss]

OK, what is the problem?

[$peed & $ex]

I dunno it jsut wont work with that code it always has compile errors and **** and im sure its messed up somehwere

[MartinLiss]

You have an End Sub in the middle of your code. Is the code you show supposed to be one subroutine or two?

[$peed & $ex]

Well its under command btuoon 1 but I want it to do 2 diferent things if there selected and stuff right...Thx man

[MartinLiss]

Something like this?

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

[$peed & $ex]

Ok well that code comes up and says that stext as string compile error duplicate declariation in current scope?Thx man

[MartinLiss]

That means that sText is Dim-ed more than once. When I moved all your Dim statements to the top I overlooked that fact that sText was there more than once. Just remove one of them.

[$peed & $ex]

What do u mean?Remove jsut 1 of what?

[MartinLiss]

One of the duplicate Dim statements. Change this

Dim sText As String
    Dim intFileNum As Integer
    Dim sText As String

to this

Dim sText As String
    Dim intFileNum As Integer

[$peed & $ex]

Ok kewl thx man helped me out big time

[MartinLiss]

You're welcome. BTW it looks to me that this is the same.

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