Private Function ReplaceA(ByVal sQuelle As String, ByVal sSearch As String, _
  ByVal sReplaceBy As String)
Dim l       As Long
 
  For l = 1 To Len(sQuelle)
    If Mid(sQuelle, l, Len(sSearch)) = sSearch Then
      Mid(sQuelle, l, Len(sSearch)) = sReplaceBy
    End If
  Next l
  ReplaceA = sQuelle
 
End Function