Public Shared Function Y_View(ByVal y_adress As String) Dim change As String = Nothing Dim source As String = Nothing If y_adress.Contains("www.youtube.com/watch?v=") Then change = y_adress change = change.Replace("watch?v=", "embed/") change = change.Replace("\&.*\n", Nothing) '正規表現を使って、"&feature=feedf"を消したいのですが、上手く動きません。 source = "<body style=""padding:0;margin:0;""><iframe width=""100%"" height=""100%"" src=" & change & " frameborder=""0"" allowfullscreen></iframe>" MsgBox(source) 'change = change.Replace("watch?v=", "embed/") だけが適用されたソースが表示されてしまいます。 Else MsgBox("YouTubeの動画のアドレスを指定してください。", MsgBoxStyle.OkOnly, "エラー") End If Return source change = Nothing source = Nothing End Function