Protected Function GetYouTubeScript(ByVal id As String) As String
        Dim scr As String = ""
        Return scr
End Function

UASGE:
If Not IsDBNull(ds.Tables(0).Rows(0).Item("EmbedVideo")) Then
                    ds.Tables(0).Rows(0)("NewsData") = Replace(ds.Tables(0).Rows(0)("NewsData"), "AYE", "

" & GetYouTubeScript(ds.Tables(0).Rows(0).Item("EmbedVideo")) & "

")
End If