Как бы вы вычислили количество оперативной памяти в компьютере
Используйте следующее:
Dim ram As ULong = My.Computer.Info.TotalPhysicalMemory