Public Function DelComment(stroka As String) as String
    Dim objRegExp As Object, s As String
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    s = "\*/*\**/\*"
    objRegExp.Pattern = s
    DelComment = objRegExp.Replace(stroka, "")
End Function

s = "(\/\*.*\*\/)+?"

stroka = Replace(stroka, "*/" & vbCrLf, "*/")