Public Class ModFunktionen
 
   Private sURL As String
   Public Property URL() As String
      Get
         Return sURL
      End Get
      Set(ByVal value As String)
         sURL = value
      End Set
   End Property
 
   Private gPfadIntern As String
   Public Property PfadIntern() As String
      Get
         Return gPfadIntern
      End Get
      Set(ByVal value As String)
         gPfadIntern = value
      End Set
   End Property
 
   Private gUser As String
   Public Property User() As String
      Get
         Return gUser
      End Get
      Set(ByVal value As String)
         gUser = value
      End Set
   End Property
 
   Private gPasswort As String
   Public Property Passwort() As String
      Get
         Return gPasswort
      End Get
      Set(ByVal value As String)
         gPasswort = value
      End Set
   End Property
 
   Public Function GetIntern() As String
      Try
         ' hier dein Code
         Return "Wert"
 
      Catch ex As Exception
         ' hier deine Fehlerbehandlung
      End Try
 
      Return String.Empty
   End Function
 
End Class

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Dim instance As New ModFunktionen
      MessageBox.Show(instance.GetIntern)
   End Sub