Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
 
    If Mid(Text1.Text, Text1.SelStart, 1) = "*" Then
        Text1.SelStart = Text1.SelStart - 1
        Text1.SelLength = 1
        Text1.SelText = "<p>"
    End If
 
End Sub

Mit freundlichen Gr??en,
Andy G.