Hey Me. Here the solution if anybody else wanted to know. A little bit of time, and as always I figure it out on my own lol
Sub GetRamInfo()
Dim StrComputer = "."
Dim objWMIService = GetObject("winmgmts:" & " _ {impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")
Dim colQuickFixes = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")
For Each objQuickFix In colQuickFixes
MsgBox("BankLabel: " & objQuickFix.BankLabel)
MsgBox("PartNumber: " & objQuickFix.PartNumber)
Next
End Sub