[VB.NET] Restituire una collection da una function

[eggpap]

Ciao,
mi scuso ma non ho trovato niente a proposito di questo mio problema.

Questa sub richiama la Function LoadFromFile che dovrebbe restituire l'oggetto Pair alla variabile Rec. La Function funziona correttamente, perché passo-passo leggo i valori delle proprietà, ma rec non contiene nulla ovvero Is Nothing.
Qualcuno sa dirmi perché?

 Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim rec As Pair
        rec = LoadFromFile("g:\tabpairs.dat")
    End Sub 

Public Shared Function LoadFromFile(ByVal Filename As String) As Pair
        Dim fs As New FileStream(Filename, FileMode.Open)
        Dim r As New BinaryReader(fs)
        Dim NewTab As New Pair()
        NewTab.NG = r.ReadInt16()
        NewTab.T = r.ReadInt16()
        r.Close()
        Return NewTab
    End Function

Grazie, Emiliano