It looks like you're new here. If you want to get involved, click one of these buttons!
Table: TestTable Moe Larry Curly Shemp Joe
Sub TestTableRoll() Dim ipad 'as InspirationPad Dim i 'as Int ' Load the table. ipad = CreateIpadTable("TestTable.ipt") ' Roll 4 times ipad.Go 4 ' Get the results. For i = 0 To 3 sector.GMNotes = sector.GMNotes & "Result " & i & ": " & ipad.GetResult(i) & vbNewLine Next 'i FreeObject ipad End Sub
Result 0: Result 1: Result 2: Result 3: