Private Sub Form_Load()
 
Dim sTemp As String
 
 
sTemp = "/*" & vbNewLine & _
        "    offene Punkte:  -  tBankBasis verfügt noch über keine Spalte für" & _
        "die Strasse, diese könnte in der Zukunft eventuelle erforderliche" & _
        "werden" & vbNewLine & _
        vbNewLine & _
        "            -  tBank verfügt über keine Spalte zum Markieren einer" & _
        "nicht mehr gültigen Bank (gelöscht)" & vbNewLine & _
        "*/ bla"
 
    With New RegExp
        .MultiLine = True
        .Global = True
        .IgnoreCase = True
        .Pattern = "/\*((.[^(\*/)])|\s)*\*/"
        If .Test(sTemp) Then
            sTemp = .Replace(sTemp, vbNullString)
        End If
    End With
 
    MsgBox sTemp
 
End Sub