Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
\'==================================
Private Sub Command1_Click() Dim a, b, x As Integer x = 0 a = 0 b = 0 \' Get a free file number nFileNum = FreeFile
\' Open a text file for input. inputbox returns the path to read the file Open \"C:\\Documents and Settings\\Sudeep\\My Documents\\3.txt\" For Input As nFileNum lLineCount = 1 \' Read the contents of the file Do While Not EOF(nFileNum) Line Input #nFileNum, sNextLine b = Len(sNextLine) MsgBox b \'do something with it FG1.AddItem sNextLine, 1 MsgBox \"1\" & x \'add line numbers to it, in this case! sNextLine = sNextLine & vbCrLf sText = sText & sNextLine x = x + 1 Loop