Remove first character from text file

[dwillyfan]

I have some code written to remove the first character from my text file, but can seem to get it to work. I have a comma at the start of my text file when I extract the data from a word form, but it won't import correctly into my database without manually removing the comma. Can anyone help me modify my coding?

Function myReplaceFileText(myFilePathInput As String, myFilePathOutput As String, myReplaceString As String, myString As String)
     
    Dim myFileString As String
     
    Open "C:\folder\file.txt" For Input As #1
    myFileString = Input(LOF(1), 1)
    Close #1
     
    myFileString = Replace(myFileString, myReplaceString, myString, Compare:=vbTextCompare)
    
    Open myFilePathOutput For Output As #2
    Print #2, myFileString
    Close
End Function
Sub Test()
     
    Dim myFilePathInput As String
    Dim myFilePathOutput As String
    Dim myReplaceString As String
    Dim myString As String
     
    myFilePathInput = "C:\folder\file.txt"
    myFilePathOutput = "C:\folder\file.txt"
    myReplaceString = ","
    myString = ""
     
    Call myReplaceFileText(myFilePathInput, myFilePathOutput, myReplaceString, myString)
     
End Sub

[macropod]

Cross-posted at: http://www.vbaexpress.com/forum/showthread.php?t=43494
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184