Private Sub cmdOpen_Click()
  ' wird im "CommonDialog" auf "Abbrechen" geklickt,
  ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst.
  Dim F As Integer
  Dim LineOfText As String
  Dim nCount As Long
 
 
  'Prüfen ob Eingabe richtig ist. sevText_Validate kann eigentlich entfallen
  If Not InputOk Then Exit Sub
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    ' Filter setzen - hier wird festgelegt, mit welchem Format
    ' eine Datei geöffnet wird.
    .Filter = "Textdateien (*.qpy)|*.qpy"
    ' Dialogfeld Öffnen anzeigen
    .ShowOpen
 
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Input As #F
        Do Until EOF(F)
          Line Input #F, LineOfText
          sevText(nCount) = LineOfText
          nCount = nCount + 1
        Loop
      Close #F
    End If
  End With
End Sub
 
 
Private Function InputOk() As Boolean
  Dim I As Integer
 
  For I = 0 To sevText.Count - 1
    If Val(sevText(I)) = 0 Then
      MsgBox "Sie müßen einen Wert größer NULL eingeben!"
      sevText(I).SetFocus
      InputOk = False
    End If
  Next I
 
  'Alle Eingaben korrekt
  InputOk = True
End Function

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.