とふ - プログラム倉庫

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

    Set ma = CreateObject("Tofu.TofuMA.1")
    
    bun = "朝日新聞は眠い"
    ostr = ma.analyze(bun)
    Debug.Print (ostr);
    


End Sub