How do i call a sub program?

[Ron1jed]

Option Base 1



Sub program(choice As Integer)

Print "I"

If choice = 0 Then
Print "am"
Else
Print "drink"
End If

End Sub

Private Sub Command1_Click()
Dim x As Integer
Dim wArray(5) As String

wArray(1) = E
wArray(2) = V
wArray(3) = I
wArray(4) = A
wArray(5) = N

Call iysam(2)


For x = 1 To 5
Print wArray(x)
Next x

Call iyam(0)
For x = 5 To 1 Step -1
Print wArray(x)


End Sub



when i run it i get a error on the call iysam(2).And when i put iyam after Sub Program it gives me a error too.

like this :Sub program iyam(choice As Integer)-gets a error