Convert text to csv

				
'**************************************
' Name: Convert text to csv
' Description:The porpose of this code is, how you convert delimited with tab or spaces text
file to Comma delimited,as you know when import a delimited with tab or spaces 
to Accesss you will get one field only ( from vb application ) without doning any changes.This code help you convert and Import to access in one step only.
' By: Adam Abas
'
' Inputs:delimited with tab or spaces text File
'
' Returns:Comma delimited text file as csv or excel
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1425&lngWId=1'for details.'**************************************

Private Function ConverToCommax()
'ConvertedName the file you will convert to comma
'sSourceFile the source file you convert from
Dim x
Dim MyString As String
Dim Newstring As String
Dim Oneletter
ConvertedName = "C:\Converted.csv"
sSourceFile = "C:\Yourtabedfile.txt"
If ConvertedName <> "" Then
Screen.MousePointer = vbHourglass
Open ConvertedName For Output As #2
Open sSourceFile For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
 Input #1, MyString ' Read data into one variable.
 For x = 1 To Len(MyString)
 Oneletter = Mid(MyString, x, 1)
 If Asc(Oneletter) = 9 Then
 Oneletter = ","
 End If
 DoEvents
 Newstring = Newstring & Oneletter
Next x
Print #2, Newstring
Newstring = ""
DoEvents ' it is important to unlock the screen
Loop
Close #1 ' Close file.
Close #2
Screen.MousePointer = vbDefault
Else
MsgBox " Destination File Read Erorr.. "
End If
End Function