E-Mail-Body ersetzen * durch Zahlen

Question

Ich habe eine E-Mail mit *, ** im Körper und einige Kontrollkästchen in einem Benutzerformular. Wenn ich ein paar Kontrollkästchen aktivieren, wird es in der E-Mail Körper setzen:

* text1 
** text2 
... 
* text24 
** text25 

Wenn ich antworten möchte ich * mit 1,2,3 ersetzen wollen .... und löschen **. Vielen Dank.

Answer 1

Nicht ganz sicher, was Sie mit der 1,2,3 meinen, aber so etwas ...?

Function RemoveStars(strInput As String) As String 

    Dim intCount As Integer 
    intCount = 1 
    Stop 
    RemoveStars = Replace(strInput, Chr(42) & Chr(42), "") 
    Do While InStr(RemoveStars, Chr(42)) <> 0 
     RemoveStars = Replace(RemoveStars, Chr(42), intCount, 1, 1) 
     intCount = intCount + 1 
    Loop 

End Function