rense tekst

hej ..... jeg har to tabeller hvor jeg skal sammenligne noget tekst problemet er bare at jeg ikke bare kan sætte en relation mellem de to tabelles navne felt fordi der tilsyneladende er noget galt med formateringen af teksten. (fordi hvis jeg klippe den ene over i den anden virker det fint med at finde dem der er ens) kan man ikke skrive en kode der læser i tabllerne og så genskriver ren tekst og mellem , gør ikke noget den fjerner mellemrum , bare de bliver samme formatering...


har prøvet at fjerne mellem rum osv med denne funktion. men det virker ikke hvordan kunne man skrive hver karraktere og fjerne blanke-


Public Function mieReplace(Streng As String, Find As String, Erstat As String) As String
    On Error Resume Next
    Dim pos As Integer, findpos As Integer
    Dim tmpStr As String
    pos = 1
    If Len(Streng) = 0 Then
      mieReplace = Streng
      Exit Function
    End If
    tmpStr = Streng
    Do
        findpos = InStr(pos, tmpStr, Find)
        If findpos <> 0 Then
            tmpStr = Left(tmpStr, findpos - 1) & Erstat & Mid(tmpStr, findpos + Len(Find))
            pos = pos
        Else
            pos = pos + 1
        End If
    Loop Until pos = Len(Streng)
    If Err Then
      mieReplace = Streng
    Else
      mieReplace = tmpStr
  End If
End Function