Imports System.IO
 
Public Class Form1
 
    Dim Person As New Menschen.Personen
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Person.Vorname = "Hans"
        Person.Nachname = "Müller"
        Person.Alter = 20
        Person.Wohnort = "Berlin"
        Person.PLZ = "12345"
        Person.Strasse = "Hauptstr. 12"
        Person.Export_Person("C:\" & Person.Vorname & " " & Person.Nachname & _
          ".txt")
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MsgBox(Person.Vorname)
    End Sub
End Class
 
Namespace Menschen
 
    Class Personen
 
        Dim m_Vorname As String
        Public Property Vorname() As String
            Get
                Return m_Vorname
            End Get
            Set(ByVal Value As String)
                m_Vorname = Value
            End Set
        End Property
 
        Dim m_Nachname As String
        Public Property Nachname() As String
            Get
                Return m_Nachname
            End Get
            Set(ByVal Value As String)
                m_Nachname = Value
            End Set
        End Property
 
        Dim m_Alter As Byte
        Public Property Alter() As Byte
            Get
                Return m_Alter
            End Get
            Set(ByVal Value As Byte)
                m_Alter = Value
            End Set
        End Property
 
        Dim m_Wohnort As String
        Public Property Wohnort() As String
            Get
                Return m_Wohnort
            End Get
            Set(ByVal Value As String)
                m_Wohnort = Value
            End Set
        End Property
 
        Dim m_Strasse As String
        Public Property Strasse() As String
            Get
                Return m_Strasse
            End Get
            Set(ByVal Value As String)
                m_Strasse = Value
            End Set
        End Property
 
        Dim m_PLZ As String
        Public Property PLZ() As String
            Get
                Return m_PLZ
            End Get
            Set(ByVal Value As String)
                m_PLZ = Value
            End Set
        End Property
 
        Sub Export_Person(ByVal Pfad As String)
            Dim FiStr As FileStream = New FileStream(Pfad, FileMode.Create)
            Dim StrWr As StreamWriter = New StreamWriter(FiStr)
            StrWr.WriteLine("Vorname: " & Vorname)
            StrWr.WriteLine("Nachname: " & Nachname)
            StrWr.WriteLine("Alter: " & Alter)
            StrWr.WriteLine("Wohnort: " & Wohnort)
            StrWr.WriteLine("PLZ: " & PLZ)
            StrWr.WriteLine("Strasse: " & Strasse)
            StrWr.Close()
            MsgBox("Datei wurde erstellt!", MsgBoxStyle.Information, "Export!")
        End Sub
    End Class
 
End Namespace