Screen Scrape

Sub Main()
    Dim app As Object
    Set app = GetObject(,"atwin32.AccuTerm")
    Dim Session As Object
    Set Session = app.ActiveSession
    If Not Session Is Nothing Then
        Dim screen As String
        Dim i As Integer
        Dim n As Integer
        n = Session.Rows
        For i = 0 To n-1
            screen = screen & Session.GetText(0,i) & vbCrLf
        Next i
        MsgBox screen
    End If
End Sub