Sobrecarga

Public Function funcion(ByVal x As String, ByVal y As String) As String
        Return 0
    End Function

Public Function funcion(ByVal x As String) As String
        Return 0
    End Function