PRA QUE SERVE A INTERFACE NA PRATICA???

Citação:

:
Ola,Pessoal!
Eu sei que não sou obrigado a usar interfaces em um projeto OO.

Mas, não entendo é porque ele é útil?????

Os colegas estão me explicando que em aplicações mais elaboradas, faz sentido usar Interfaces.

Mas, isto só diz [Ô]QUANDO[Ô] usar ( Em aplicações elaboradas) !

O que gostaria de saber, é PORQUE usar???

Ou seja, porque não criar a classe direto, com os métodos que preciso. Eu não estou conseguindo
enxergar a vantagem de criar uma classe ( Interface), com métodos que não fazem nada (Sem corpo).

Acho que o que esta faltando, é um exemplo [Ô]PRATICO[Ô]. Algum colega conhece????

 Imports System.IO
Public Class Procedimentos
    Public Enum OpcaoFicheiro
        Ler = 0
        Gravar = 1
    End Enum
Public Property FazTrabalho As OpcaoFicheiro
Public Shared Function ExisteFicheiro(ByRef Caminho_Ficheiro As String) As Boolean

        If IO.File.Exists(Caminho_Ficheiro) Then
            ExisteFicheiro = True
        Else

            ExisteFicheiro = False
        End If
    End Function

    Public Function Ficheiro(ByRef IndicarCaminho As String, ByRef FazTrabalho As OpcaoFicheiro, ByRef Opcional As String) As String
        Dim Ler_Documento As StreamReader
        Dim Grava_Documento As StreamWriter
        If ExisteFicheiro(IndicarCaminho) = True Then
            If FazTrabalho = OpcaoFicheiro.Ler Then
                Ler_Documento = New StreamReader(IndicarCaminho)
                Opcional = Ler_Documento.ReadLine()
                Ler_Documento.Close()
                Return Opcional
            End If
            If FazTrabalho = OpcaoFicheiro.Gravar Then
                Grava_Documento = New StreamWriter(IndicarCaminho)
                Grava_Documento.WriteLine(Opcional)
                Grava_Documento.Close()
            End If
        End If
        Return Opcional
    End Function 
End class 

Module Module1
Public ObjProcedimentos As New Procedimentos
End Module   

Public Class Form1
Private Sub Abrir_Click(sender As System.Object, e As System.EventArgs) Handles Abrir.Click
        Textbox1.text=ObjProcedimentos.Ficheiro(Application.StartupPath & [Ô]\Testamento.txt[Ô], Procedimentos.OpcaoFicheiro.Ler, [Ô][Ô])
    End Sub
End Class