When posting code try to format it as such, with the code tags at the top of the edit window.

vb Code:
  1. Public Function Wind(Direction As Integer, Speed as Integer) As Integer
  2.  
  3.     If Direction > 0 And Direction <= 10 And Speed > 15 Then
  4.         Wind = 1
  5.     Else
  6.         Wind = 0
  7.     End If
  8.  
  9. End Function