Вывести на форму сведения о Оперативной Памяти - VB

Private Sub Command1_Click()
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    MsgBox Err.Number & ": " & Err.Description
    Exit Sub
End If
For Each objPhMem In objService.ExecQuery("SELECT * FROM Win32_PhysicalMemory")
        Print (objPhMem.Capacity / 1024) / 1024 & " МБ" 'размер физической памяти в МБ
   
Next
End Sub