Вывод объема видеопамяти

Friend Shared Function GetVideoMemorySize() As UInteger
    Dim scope As New ManagementScope("\root\cimv2")
    scope.Connect()
    Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_VideoController")
    Dim result As ManagementObjectCollection = searcher.Get()
    For Each mo As ManagementObject In result
        Return CUInt(mo.Properties("AdapterRAM").Value)
    Next
    Return 0
End Function

TextBox1.Text = GetVideoMemorySize().ToString()

Friend Shared Function GetVideoMemorySize() As UInteger
    Dim scope As New ManagementScope("\root\cimv2")
    scope.Connect()
    Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_VideoController")
    Dim result As ManagementObjectCollection = searcher.Get()
    For Each mo As ManagementObject In result
        Dim value As UInteger = CUInt(mo.Properties("AdapterRAM").Value)
        If (value <> 0) Then Return value
    Next
    Return 0
End Function