Imports System
Imports System.IO
Public Class Form1
    Dim dict As New Dictionary(Of String, String)
    Dim entry As KeyValuePair(Of String, String)
    Public Pfad As String = Application.StartupPath & "\Dict.dat"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        If Not File.Exists(Pfad) Then
            MsgBox("Erstelle neues wörterbuch.")
            Using sw As StreamWriter = File.CreateText(Pfad)
                sw.WriteLine("lol=loughing out loud")
            End Using
        End If
        'Einlesen der Datei
        Dim sr As IO.StreamReader = New IO.StreamReader(FILE_NAME)