Public Sub LongEntry()
Dim OutFile As Integer
    OutFile = FreeFile
 
    If Sheet1.Range("L3") = 0 And Sheet1.Range("K3") And Sheet1.Range("I3") = 1 _
      Then
        ' 15 Sekunden warten
        Delay 15
    End If
 
    If Sheet1.Range("L3") = 0 And Sheet1.Range("K3") And Sheet1.Range("I3") = 1 _
      Then
 
        ' Create an order file
        Open "c:\program files\tsimplus\auto.tsm" For Output As OutFile
        Print #OutFile, "place,buymkt," & Sheet1.Range("symbol") & ",1,,,"
        Close OutFile
 
        ' 45 Sekunden warten
        Delay 45
 
    End If
 
End Sub

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell