Public Function ZnErsetzen(strText As String, strZeichenAlt As String, strZeichenNeu As String) As String
Dim vPo As Long, vText As String
vText = strText
If (InStr(strZeichenAlt, strZeichenNeu) = 0 Or strZeichenNeu = "") And Len(strZeichenAlt) > 0 Then
Do
vPo = InStr(vText, strZeichenAlt)
If vPo <> 0 Then
vText = Left(vText, vPo - 1) & strZeichenNeu & _
Right(vText, Len(vText) - Len(strZeichenAlt) - vPo + 1)
End If
Loop While vPo <> 0
End If
ZnErsetzen = vText
End Function