Create Import Wizard for Text Files

[mvidas]

OK, I changed your ImportTextLines sub to ImportTextFile. Also, I added (and commented out) a line which will restrict the Sep variable to be only 1 character long. I also changed the file number to be a variable, in the rare instance that file number 1 is already being used.
Give these a try:

[vba]Public Sub DoTheImport()
Dim FName As Variant
Dim Sep As String
FName = Application.GetOpenFilename _
(filefilter:="Text Files(*.txt),*.txt,All Files (*.*),*.*")
If FName = False Then
Msgbox "You didn't select a file"
Exit Sub
End If
Redo:
Sep = InputBox("Enter a single delimiter character.", _
"Import Text File")
' If Len(Sep) <> 1 Then msgbox "Invalid delimiter length.": GoTo Redo
If Sep = "" Then Exit Sub

ImportTextfile CStr(FName), Sep
End Sub
Sub ImportTextfile(FName As String, Sep As String)
Dim RowNdx As Integer
Dim ColNdx As Integer
Dim WholeLine As String
Dim FileNum As Integer
Application.ScreenUpdating = False
ColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row
FileNum = FreeFile()
Open FName For Input Access Read As #FileNum
While Not EOF(FileNum)
Line Input #FileNum, WholeLine
While WholeLine Like "*" & Sep & "*"
Cells(RowNdx, ColNdx) = Left(WholeLine, InStr(1, WholeLine, Sep, 1) - 1)
WholeLine = Mid(WholeLine, InStr(1, WholeLine, Sep, 1) + Len(Sep))
ColNdx = ColNdx + 1
Wend
Cells(RowNdx, ColNdx) = WholeLine
RowNdx = RowNdx + 1
ColNdx = 1
Wend
Close #FileNum
End Sub[/vba]

Matt