Scusa ... forse non avevo compreso bene dall'inizio ... probabilmente tu volevi una cosa del genere

codice:
        Dim x As Studenti

        For Each x In [Enum].GetValues(GetType(Studenti))
            Dim strMsgType As String = x.ToString()

            MsgBox(CStr(x) & " " & strMsgType)
        Next