Function CareFGetMac() As String
        Try
            Dim Mac As String
            Dim mc As ManagementClass
...