Sub conv(ByVal fi As String, ByVal fo As String, ByVal t As String)
Dim s As String, a As String, r As String
On Error GoTo err
Open fi For Input As #1
Open fo For Output As #2
Do While Not EOF(1)
 Line Input #1, s
 r = Replace(s, ";", "','")
 a = "INSERT INTO " & t & " values ('" & r & "');"
 Print #2, a
Loop
Close #2
Close #1
 MsgBox "Done!"
Exit Sub
err:
 MsgBox "Error!" & vbNewLine & "Please check file names", vbExclamation
End Sub