string negator

[NTShpikho]

Function Negate(sentence As String) As String
    ' Check if the sentence contains "not"
    If sentence.Contains("not") Then
        Return sentence.Replace("not", "").Trim()
    Else
        ' Replace specific words with their negative forms
        Dim replacements As New Dictionary(Of String, String) From {
            {"i ", "i do "},
            {"he ", "he does "},
            {" it ", " it does "},
            {"is", "is not"},
            {" am", " am not"},
            {" are", " are not"},
            {"does", "does not"},
            {"do ", "do not "},
            {"may", "may not"},
            {"might", "might not"},
            {"could", "could not"},
            {"would", "would not"},
            {"will", "will not"},
            {"has ", "has not "},
            {"have ", "have not "}
        }

        For Each kvp As KeyValuePair(Of String, String) In replacements
            sentence = sentence.Replace(kvp.Key, kvp.Value)
        Next

        If Not sentence.Contains("not") Then
            Return "not " & sentence
        End If
    End If

    Return sentence
End Function