[JackOfAllTrades]

If you have the algorithm, then you just need to write the code! If you're expecting us to do that for you, we will not, as per the rules:

Dream.In.Code has a policy by which we prefer to see a good faith effort on your part before providing source code for homework assignments. Please post the code you have written in an effort to resolve the problem, and our members would be happy to provide some guidance. Be sure to include a description of any errors you are encountering as well.

Please post like this:

Thank you for helping us helping you.

If you have code you need help with, then please post it (in code tags) along with the questions you have and/or the exact errors you're receiving.

[JackOfAllTrades]

And again, what are the problems/errors you are receiving???

[raziel_]

do you try debugging ? to see where is the problem

[raziel_]

at what line it stop to respond?

[parbipin]

this might help:

#Pack is not an available function in VB
#Supply full path of the text file you want to open

try this

Dim x As Integer
Dim oneLetter As String
Dim objFSO As Scripting.FileSystemObject
Dim tempfile As Object
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long


Set objFSO = New Scripting.FileSystemObject
Set tempfile = objFSO.CreateTextFile("C:\TEMP\tempF.txt")

'Assigning Values
nFileNum = FreeFile
lLineCount = 1

' Open a text file for input
        Open "C:\TEMP\temp.txt" For Input As nFileNum

' Read the contents of the file
        Do While Not EOF(nFileNum)
            Line Input #nFileNum, sNextLine
            'sNextLine = Pack(sNextLine) *Pack is not available in VB so _
            you might wanna replace this with an appropriate function
            sNextLine = Trim(sNextLine) & vbCrLf
            
        For x = 1 To Len(sNextLine)
            oneLetter = Mid(sNextLine, x, 1)
            If Asc(oneLetter) = 9 Then
                oneLetter = ","
            ElseIf Asc(oneLetter) = 32 Then
                oneLetter = "##**##"
            ElseIf Asc(oneLetter) = 32 Then
                oneLetter = Replace(oneLetter, " ", "")
            End If
            
        DoEvents
        Newstring = Newstring & oneLetter
        Next x

DoEvents
Loop

tempfile.writeline (Newstring)
tempfile.Close
Set tempfile = Nothing
Set objFSO = Nothing

' Close the file
Close nFileNum