Estou fazendo a importação de um txt, tenho aproximadamente 500.000 registros

Leio o txt jogo numa variável e gravo no banco. Meu banco é SQL-SERVER 2000. O problema é que alguns registros tem uma apostrofe no meio do nome, exemplo:

 

00011NR-'A'
R CAIXA D'AGUA
JAIR SANT'ANA
R CAETANO D'ABDREA

 

Como tratar a apostrofe, que pode estar no campo nome ou endereço ou mesmo no número.

Preciso de uma função que leia a variável e a trate. Pois o insert gera um erro nestes campos.

Agradeço a todos os que puderem me ajudar

Silvio

'substitua o caracter

Private Sub Command1_Click()
  Dim strTexto As String
  strTexto = Text1.Text
  strTexto = Replace(strTexto, "'", "")
  MsgBox strTexto
End Sub

Martini

 

Valeu pela ajuda

 

Obrigado