Private Function ziffernfolge_zensieren(ByVal xZeile As String) As String
    Dim MomentanePositionDesZeigers As Integer
    Dim AnzahlZeichenvonXZeile As Integer
    Dim AnzahlGefundeneZiffern As Integer
    Dim i As Integer  ' Laufvariable
    Dim AuswertbaresZeichen As String
    Dim ZuErsetzenderString As String
    Dim ZuErsetzenderStringZeichen As String
 
    ziffernfolge_zensieren = ""
    xZeile = xZeile & " "
    AnzahlZeichenvonXZeile = Len(xZeile)
 
    For MomentanePositionDesZeigers = 1 To AnzahlZeichenvonXZeile Step 1
 
        AuswertbaresZeichen = Mid(xZeile, MomentanePositionDesZeigers, 1)
 
        If IsNumeric(AuswertbaresZeichen) Then
 
            ZuErsetzenderString = ZuErsetzenderString & AuswertbaresZeichen
            ZuErsetzenderStringZeichen = ZuErsetzenderStringZeichen & "*"
 
        Else
            If Len(ZuErsetzenderString) = 4 Then
                If Not IsNumeric(AuswertbaresZeichen) Then
                    ziffernfolge_zensieren = Replace(ziffernfolge_zensieren, _
                      ZuErsetzenderString, ZuErsetzenderStringZeichen)
                    ZuErsetzenderString = ""
                    ZuErsetzenderStringZeichen = ""
               Else
                    ZuErsetzenderString = ZuErsetzenderString & _
                      AuswertbaresZeichen
                    ZuErsetzenderStringZeichen = ZuErsetzenderStringZeichen & _
                    "*"
                End If
 
            Else
                ZuErsetzenderString = ""
                ZuErsetzenderStringZeichen = ""
            End If
 
 
        End If
 
        ziffernfolge_zensieren = ziffernfolge_zensieren & AuswertbaresZeichen
 
    Next
 
    ziffernfolge_zensieren = Trim(ziffernfolge_zensieren)
 
 
End Function
_______________________________________________________________________________
 
Private Sub TestaufrufZiffernfolgeerstezen()
    Dim Uebergabestring, ergebnisstring As String
    Uebergabestring = "Herr xyz mit der Pesonalnummer 8293 hat 2009" 'Hier 
    ' sieht man den Inhalt der Zelle
ergebnisstring = ziffernfolge_zensieren(Uebergabestring)
ergebnisstring = ergebnisstring
End Sub