VB6-2

Private Sub Command1_Click()
    Dim bun As String
    Dim ostr As String
    Dim ma As Object

    Set ma = CreateObject("Tofu.TofuMA.1")

    bun = "シリアのアサド大統領は２１日、４８年ぶりに非常事態法を解除する大統領令を発令した。"
    bun = bun + "３月から続く反政府デモの鎮静化を狙った措置となる。"

    ostr = ma.analyze(bun)
    Debug.Print (ostr);


End Sub