Private Function ZensierePersonalnummer(ByVal text As String) As String
    Dim pn As String: pn = "Personalnummer "
    Dim pnpos As Integer: pnpos = InStr(text, pn)
    Dim itext As String
    If pnpos > 0 Then
       itext = Mid(text, 1, pnpos + 14) & "****" & Mid(text, pnpos + 19)
    End If
    ZensierePersonalnummer = itext
End Function