Private Sub cmdRequest_Click()

Set thisSheet = stcpsvr8548


Dim a As New cpsvr8548


n = 2

For i = 0 To a.Input.Count - 1
a.SetInputValue i, Asc(thisSheet.Cells(n + 1 + i, 2))
Next
Set Result = thisSheet.Cells(n + 1, 2)
t = a.Input.Count + 1

n = n + a.Input.Count + 1
a.BlockRequest
thisSheet.Cells(n + 1, 2) = a.GetDibStatus
thisSheet.Cells(n + 2, 2) = a.GetDibMsg1
thisSheet.Cells(n + 3, 2) = a.GetDibMsg2
thisSheet.Cells(n + 4, 2) = a.Continue
n = n + 5

For i = 0 To a.Header.Count - 1
thisSheet.Cells(n + 1 + i, 2) = a.GetHeaderValue(i)
Next
n = n + a.Header.Count

temp = a.Data.Count - 1
For i = 0 To a.GetHeaderValue(0) - 1
n = n + 1
For j = 0 To temp
thisSheet.Cells(n + 2, j + 1) = a.GetDataValue(j, i)
Next
Next

Do While a.Continue
a.BlockRequest
Result(t + 1, 1) = a.GetDibStatus
Result(t + 2, 1) = a.GetDibMsg1
Result(t + 3, 1) = a.GetDibMsg2
Result(t + 4, 1) = a.Continue
For i = 0 To a.GetHeaderValue(0) - 1
n = n + 1
For j = 0 To temp
thisSheet.Cells(n + 2, j + 1) = a.GetDataValue(j, i)
Next
Next
Loop

Set a = Nothing
End Sub