Compile Error: Variable not defined\rockwell arena 9.0

Option Explicit
Dim s As Arena.SIMAN
Dim oExcellapp As Excel.Application, oWorkBook As Excel.WorkBook
Dim oWorkSheet As Excel.WorkSheet
Private Sub ModelLogic_RunBegin()
Dim m As Model
Dim s As SIMAN
Set m = ThisDocument.Model
Set s = m.SIMAN
UserForm1.Show
End Sub
Private Sub ModelLogic_RunBeginSimulation()
Dim m As Model
Dim s As SIMAN
Dim a As Integer
Dim b As Integer
Set m = ThisDocument.Model
Set s = m.SIMAN
s.VariableArrayValue(s.SymbolNumber("koefficient")) = Val(TextBox2.Text)
s.RunEndTime = EndMod
End Sub
Private Sub ModelLogic_RunEndsimulation()
UserForm2.Show
End Sub

Private Sub CommandButton1_Click()
Dim m As Model
Dim s As SIMAN
Set m = ThisDocument.Model
Set s = m.SIMAN
EndMod = Val(TextBox1.Text) * 24
m.Modules.Item(m.Modules.Find(smFindTag, "pribitie")).Data("Interarrival Type") = "Expression"
m.Modules.Item(m.Modules.Find(smFindTag, "pribitie")).Data("Expression") = ComboBox1.Text
K = Val(TextBox2.Text)
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
Dim m As Model
Dim s As SIMAN
Set m = ThisDocument.Model
Set s = m.SIMAN
s.Application.Quit
 
End Sub
 
Private Sub CommandButton3_Click()
Dim mas(3) As String
mas(0) = "POIS( 30 )"
mas(1) = "POIS( 20 )"
mas(2) = "POIS( 50 )"
mas(3) = "POIS( 40 )"
For i = 0 To 3
ComboBox1.AddItem (mas(i))
Next i
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Private Sub CommandButton1_Click()
 Dim Cdlg As Object
    Set Cdlg = CreateObject("MSComDlg.CommonDialog")
    Cdlg.CancelError = True: Cdlg.DialogTitle = "Excel"
    Cdlg.Filter = "Excel|*.xlsx"
    Cdlg.ShowSave
Dim m As Model
Dim s As SIMAN
 
Set m = ThisDocument.Model
Set s = m.SIMAN
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.Visible = False
oExcelApp.SheetsInNewWorkbook = 1
Set oWorkBook = oExcelApp.Workbooks.Add
Set oWorkSheet = oWorkBook.ActiveSheet
Dim m1 As Integer
m1 = s.VariableArrayValue(s.SymbolNumber("pribyil"))
oWorkSheet.Cells(2, 1).value = "Прибыль от обижга"
oWorkSheet.Cells(2, 2).value = m1
 
Dim m2 As Integer
m2 = s.VariableArrayValue(s.SymbolNumber("zatratyi"))
oWorkSheet.Cells(3, 1).value = "Затраты на функц.печи"
oWorkSheet.Cells(3, 2).value = m2
 
Dim m3 As Integer
m3 = s.VariableArrayValue(s.SymbolNumber("zatratyi_na_ochered"))
oWorkSheet.Cells(4, 1).value = "Затраты на функц.очереди"
oWorkSheet.Cells(4, 2).value = m3
Dim m4 As Double
 m4 = s.VariableArrayValue(s.SymbolNumber("obschie_zatratyi"))
oWorkSheet.Cells(5, 1).value = "Общие затраты"
oWorkSheet.Cells(5, 2).value = m4
 
Dim m5 As Double
m5 = s.VariableArrayValue(s.SymbolNumber("chistaya_pribyil"))
oWorkSheet.Cells(6, 1).value = "Чистая прибыль"
oWorkSheet.Cells(6, 2).value = m5
Dim m6 As Double
m6 = s.VariableArrayValue(s.SymbolNumber("koefficient"))
oWorkSheet.Cells(7, 1).value = "Коэффициент"
oWorkSheet.Cells(7, 2).value = m6
 
oExcelApp.Visible = True
oExcelApp.DisplayAlerts = False
 
UserForm2.Hide
End
End Sub