Class A
        Private Sub Button_Click(ByVal sender As System.Object, ByVal e As _
          System.EventArgs)
            Dim sText as String
 
            sText = "MsgBox(Funktion1(""Hello World""))"
 
            'Call sText
        End Sub
 
        Public Function Funktion1(arg As String) As String Implements _
          IService.Funktion1
            Funktion1 = "Funktion 1 - " & arg
        End Function
 
        Public Function Funktion2(arg As String) As String Implements _
          IService.Funktion2
            Funktion2 = "Funktion 2 - " & arg
        End Function
End Class