Private Sub cmdExit_Click()
  Unload Me  
  End  <font color=green>' falls gesamtes Programm beendet werden soll</font>
End Sub

Private Sub cmdNew_Click()
  Load frmNeu
  frmNeu.Show
End Sub

Private Sub cmdFolder_Click()
  Dim sFolder As String
 
  sFolder = InputBox("Neuen Ordner erstellen", "Order", "")
  If sFolder <> "" Then
    On Error Resume Next
    MkDir Dir1.Path & "\" & sFolder
    If Err <> 0 Then
      MsgBox "Der Ordner kann nicht erstellt werden!"
    End If
  End If
End Sub