Private Sub Schleife()
    While (True)
      'Der Timer wird abgearbeitet
      Application.DoEvents()
    ...
    End While
  End Sub

Private Sub tNOTAUS_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles tNOTAUS.Tick
   If IO_GetOutports(15) Then
        NOTAUS()
    End If
End Sub

Private Sub NOTAUS()
    tNOTAUS.Enabled = False
    MsgBox("NOTAUS!")
    Me.Close()
  End Sub