Private Sub Command1_Click()
  Dim Text As String
 
  ' wenn kein Text markiert, Sub beenden
  If Text1.SelText = "" Then Exit Sub
 
  Text = Text1.SelText
 
  ' wenn hinter Markierung kein Leerzeichen,
  ' dann Leerzeichen eifügen
  If Right$(Text, 1) <> " " Then Text = Text & " "
 
  ' neuen Text einfügen
  Text = "davor " & Text & "danach "
  Text1.SelText = Text
End Sub

Gruß
Marcus