Private Sub cmdOpen_Click()
  Dim sFolder As String
 
  sFolder = modBrowseDirectory.BrowseForFolder(frmParameter.hwnd, "Bitte wählen" & _
    "Sie einen Ordner:", "C:\")
  If Len(sFolder) = 0 Then Exit Sub 'Bei Cancel abbrechen
 
  Text2.Text = sFolder
End Sub

Die Anweisung in "0x001513df" verweist auf Speicher in 0xec00e2b5". 
Der Vorgang "written" konnte nicht auf dem Speicher durchgeführt werden.

Never change a runing system