Dim achar As String * 1
Dim aword As String
CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As #1
    Do While Not EOF(1)
        Input #1, achar
        aword = aword + achar
            If achar = Chr(32) Then
        `its a word do what i will          
            End If

    Loop
Close #1

 Dim achar As String * 1
 Dim aword As String
 CommonDialog1.ShowOpen

 Open CommonDialog1.FileName For Binary As #1
     Do While Not EOF(1)
         Get #1, , achar                     'use Get and note the 2 commas
(there is an implied file postion arg)
         aword = aword & achar
             If achar = Chr(32) Then
                  Msgbox aword
                  End
             End If
     Loop
 Close #1

Use the Input function, not the Input # statement (this looks for
comma-delimited fields).

achar = Input(1, 1)

Incidentally, you shouldn't really use a file number of 1 - use the number
returned by FreeFile.

It's also a good idea to use & instead of + when handling strings.

--
Regards
{*filter*}

Remove '!no!spam!' to reply by e-mail but reply to newsgroup as well.