VB Code:
'***********************************************'
' code that replaces the chr(9)'s with space(8) '
'***********************************************'
Dim curpos1 As Integer
thispos1 = 0
thispos1 = 0
startpos1 = 1
startpos2 = 1
'chr(9) replacing with 8 spaces
Do While True
thispos1 = InStr(startpos1, strFileRecord, Chr(9))
If thispos1 = 0 Then Exit Do
strFileRecord = Left(strFileRecord, thispos1 - 1) & space(8) & Mid(strFileRecord, thispos1 + 8)
startpos1 = thispos1 + 1
Loop
'***********************************************'
' code that replaces the chr(9)'s with space(8) '
'***********************************************'