Replace メソッドを使ってみるとか。 With CreateObject("VBScript.RegExp") .Pattern = "^ *(([^ ]+.*)?[^ ])? *$" Text2.Text = .Replace(Text1.Text, "$1") End With