Sub ErsetzeStern()
Dim s$, c$
c = "x" ' das Zeichen, das für das * eingesetzt wird
With Range("A4") ' zu prüfende Zelle
s = .Value
If Len(s) >= 3 Then ' mind. 3 Zeichen lang
' Drittletztes Zeichen ein "*" ?
If Mid(s, Len(s) - 2, 1) = "*" Then _
.Value = Left(s, Len(s) - 3) & c & Right(s, 2) ' Ersetzen
End If
End With
End Sub